|
1200
|
Is it possible to display the task bars with a gradient color
G2antt1->BeginUpdate();
Exg2anttlib_tlb::IChartPtr var_Chart = G2antt1->Chart;
var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2009,12,31).operator double()));
var_Chart->LevelCount = 2;
var_Chart->set_PaneWidth(false,96);
var_Chart->Bars->Copy(L"Task",L"TaskO");
Exg2anttlib_tlb::IBarPtr var_Bar = var_Chart->Bars->get_Item(TVariant("Task"));
var_Bar->Pattern = Exg2anttlib_tlb::PatternEnum::exPatternGradientVBox | Exg2anttlib_tlb::PatternEnum::exPatternBox | Exg2anttlib_tlb::PatternEnum::exPatternShadow;
var_Bar->StartColor = RGB(255,255,255);
var_Bar->EndColor = var_Bar->Color;
G2antt1->Columns->Add(L"Types");
Exg2anttlib_tlb::IItemsPtr var_Items = G2antt1->Items;
var_Items->AddBar(var_Items->AddItem(TVariant("Original")),TVariant("TaskO"),TVariant(TDateTime(2010,1,4).operator double()),TVariant(TDateTime(2010,1,9).operator double()),TVariant(""),TNoParam());
var_Items->AddBar(var_Items->AddItem(TVariant("Pattern Gradient")),TVariant("Task"),TVariant(TDateTime(2010,1,4).operator double()),TVariant(TDateTime(2010,1,9).operator double()),TVariant(""),TNoParam());
var_Items->AddBar(var_Items->AddItem(TVariant("Original")),TVariant("TaskO"),TVariant(TDateTime(2010,1,4).operator double()),TVariant(TDateTime(2010,1,9).operator double()),TVariant(""),TNoParam());
G2antt1->EndUpdate();
|
|
1199
|
How can I know the type of bars I can displays using predefined patterns
G2antt1->BeginUpdate();
Exg2anttlib_tlb::IChartPtr var_Chart = G2antt1->Chart;
var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2009,12,31).operator double()));
var_Chart->LevelCount = 2;
var_Chart->set_PaneWidth(false,96);
Exg2anttlib_tlb::IBarsPtr var_Bars = var_Chart->Bars;
var_Bars->Add(L"Box")->Pattern = Exg2anttlib_tlb::PatternEnum::exPatternBox;
var_Bars->Add(L"ThickBox")->Pattern = Exg2anttlib_tlb::PatternEnum::exPatternThickBox | Exg2anttlib_tlb::PatternEnum::exPatternBox;
var_Bars->Add(L"DiagBox")->Pattern = Exg2anttlib_tlb::PatternEnum::exPatternThickBox | Exg2anttlib_tlb::PatternEnum::exPatternBDiagonal;
var_Bars->Copy(L"Task",L"Shadow")->Pattern = Exg2anttlib_tlb::PatternEnum::exPatternFrameShadow | Exg2anttlib_tlb::PatternEnum::exPatternShadow;
var_Bars->Copy(L"Task",L"TShadow")->Pattern = Exg2anttlib_tlb::PatternEnum::exPatternFrameShadow | Exg2anttlib_tlb::PatternEnum::exPatternThickBox | Exg2anttlib_tlb::PatternEnum::exPatternDiagCross;
Exg2anttlib_tlb::IBarPtr var_Bar = var_Bars->Add(L"HGrad1");
var_Bar->Pattern = Exg2anttlib_tlb::PatternEnum::exPatternBox;
var_Bar->StartColor = RGB(255,255,255);
var_Bar->EndColor = RGB(0,0,255);
Exg2anttlib_tlb::IBarPtr var_Bar1 = var_Bars->Add(L"HGrad2");
var_Bar1->Pattern = Exg2anttlib_tlb::PatternEnum::exPatternBox | Exg2anttlib_tlb::PatternEnum::exPatternShadow;
var_Bar1->StartColor = RGB(255,255,255);
var_Bar1->EndColor = RGB(0,0,255);
var_Bar1->Color = RGB(0,0,255);
Exg2anttlib_tlb::IBarPtr var_Bar2 = var_Bars->Add(L"HGrad3");
var_Bar2->Pattern = Exg2anttlib_tlb::PatternEnum::exPatternGradient3Colors | Exg2anttlib_tlb::PatternEnum::exPatternBox | Exg2anttlib_tlb::PatternEnum::exPatternShadow;
var_Bar2->StartColor = RGB(255,255,255);
var_Bar2->EndColor = var_Bar2->StartColor;
var_Bar2->Color = RGB(0,0,255);
Exg2anttlib_tlb::IBarPtr var_Bar3 = var_Bars->Add(L"HGrad4");
var_Bar3->Pattern = Exg2anttlib_tlb::PatternEnum::exPatternThickBox | Exg2anttlib_tlb::PatternEnum::exPatternGradient3Colors | Exg2anttlib_tlb::PatternEnum::exPatternBox;
var_Bar3->StartColor = RGB(255,255,255);
var_Bar3->EndColor = var_Bar3->StartColor;
var_Bar3->Color = RGB(0,0,255);
Exg2anttlib_tlb::IBarPtr var_Bar4 = var_Bars->Add(L"HGrad5");
var_Bar4->Pattern = Exg2anttlib_tlb::PatternEnum::exPatternFrameShadow | Exg2anttlib_tlb::PatternEnum::exPatternGradient3Colors | Exg2anttlib_tlb::PatternEnum::exPatternBox;
var_Bar4->StartColor = RGB(0,255,0);
var_Bar4->EndColor = RGB(255,0,0);
var_Bar4->Color = RGB(0,0,255);
Exg2anttlib_tlb::IBarPtr var_Bar5 = var_Bars->Add(L"VGrad1");
var_Bar5->Pattern = Exg2anttlib_tlb::PatternEnum::exPatternGradientVBox | Exg2anttlib_tlb::PatternEnum::exPatternBox;
var_Bar5->StartColor = RGB(255,255,255);
var_Bar5->EndColor = RGB(0,0,255);
var_Bar5->Height = 14;
Exg2anttlib_tlb::IBarPtr var_Bar6 = var_Bars->Add(L"VGrad2");
var_Bar6->Pattern = Exg2anttlib_tlb::PatternEnum::exPatternGradientVBox | Exg2anttlib_tlb::PatternEnum::exPatternBox | Exg2anttlib_tlb::PatternEnum::exPatternShadow;
var_Bar6->StartColor = RGB(255,255,255);
var_Bar6->EndColor = RGB(0,0,255);
var_Bar6->Color = RGB(0,0,255);
var_Bar6->Height = 14;
Exg2anttlib_tlb::IBarPtr var_Bar7 = var_Bars->Add(L"VGrad3");
var_Bar7->Pattern = Exg2anttlib_tlb::PatternEnum::exPatternGradient3Colors | Exg2anttlib_tlb::PatternEnum::exPatternGradientVBox | Exg2anttlib_tlb::PatternEnum::exPatternBox | Exg2anttlib_tlb::PatternEnum::exPatternShadow;
var_Bar7->StartColor = RGB(255,255,255);
var_Bar7->EndColor = var_Bar7->StartColor;
var_Bar7->Color = RGB(0,0,255);
var_Bar7->Height = 14;
Exg2anttlib_tlb::IBarPtr var_Bar8 = var_Bars->Add(L"VGrad4");
var_Bar8->Pattern = Exg2anttlib_tlb::PatternEnum::exPatternThickBox | Exg2anttlib_tlb::PatternEnum::exPatternGradient3Colors | Exg2anttlib_tlb::PatternEnum::exPatternGradientVBox | Exg2anttlib_tlb::PatternEnum::exPatternBox;
var_Bar8->StartColor = RGB(255,255,255);
var_Bar8->EndColor = var_Bar8->StartColor;
var_Bar8->Color = RGB(0,0,255);
var_Bar8->Height = -1;
Exg2anttlib_tlb::IBarPtr var_Bar9 = var_Bars->Add(L"VGrad5");
var_Bar9->Pattern = Exg2anttlib_tlb::PatternEnum::exPatternFrameShadow | Exg2anttlib_tlb::PatternEnum::exPatternGradient3Colors | Exg2anttlib_tlb::PatternEnum::exPatternGradientVBox | Exg2anttlib_tlb::PatternEnum::exPatternBox;
var_Bar9->StartColor = RGB(0,255,0);
var_Bar9->EndColor = RGB(255,0,0);
var_Bar9->Color = RGB(0,0,255);
var_Bar9->Height = 14;
G2antt1->Columns->Add(L"Types");
Exg2anttlib_tlb::IItemsPtr var_Items = G2antt1->Items;
var_Items->AddBar(var_Items->AddItem(TVariant("Box")),TVariant("Box"),TVariant(TDateTime(2010,1,4).operator double()),TVariant(TDateTime(2010,1,9).operator double()),TVariant(""),TNoParam());
var_Items->AddBar(var_Items->AddItem(TVariant("Thick Box")),TVariant("ThickBox"),TVariant(TDateTime(2010,1,4).operator double()),TVariant(TDateTime(2010,1,9).operator double()),TVariant(""),TNoParam());
var_Items->AddBar(var_Items->AddItem(TVariant("Thick Box Diag")),TVariant("DiagBox"),TVariant(TDateTime(2010,1,4).operator double()),TVariant(TDateTime(2010,1,9).operator double()),TVariant(""),TNoParam());
var_Items->AddBar(var_Items->AddItem(TVariant("Shadow")),TVariant("Shadow"),TVariant(TDateTime(2010,1,4).operator double()),TVariant(TDateTime(2010,1,9).operator double()),TVariant(""),TNoParam());
var_Items->AddBar(var_Items->AddItem(TVariant("Thick Shadow")),TVariant("TShadow"),TVariant(TDateTime(2010,1,4).operator double()),TVariant(TDateTime(2010,1,9).operator double()),TVariant(""),TNoParam());
var_Items->AddBar(var_Items->AddItem(TVariant("Solid Gradient")),TVariant("HGrad1"),TVariant(TDateTime(2010,1,4).operator double()),TVariant(TDateTime(2010,1,9).operator double()),TVariant(""),TNoParam());
var_Items->AddBar(var_Items->AddItem(TVariant("Pattern Gradient")),TVariant("HGrad2"),TVariant(TDateTime(2010,1,4).operator double()),TVariant(TDateTime(2010,1,9).operator double()),TVariant(""),TNoParam());
var_Items->AddBar(var_Items->AddItem(TVariant("Pattern Gradient 3 Colors")),TVariant("HGrad3"),TVariant(TDateTime(2010,1,4).operator double()),TVariant(TDateTime(2010,1,9).operator double()),TVariant(""),TNoParam());
var_Items->AddBar(var_Items->AddItem(TVariant("Solid Gradient 3 Colors")),TVariant("HGrad4"),TVariant(TDateTime(2010,1,4).operator double()),TVariant(TDateTime(2010,1,9).operator double()),TVariant(""),TNoParam());
var_Items->AddBar(var_Items->AddItem(TVariant("Gradient Shadow")),TVariant("HGrad5"),TVariant(TDateTime(2010,1,4).operator double()),TVariant(TDateTime(2010,1,9).operator double()),TVariant(""),TNoParam());
var_Items->AddBar(var_Items->AddItem(TVariant("Solid Gradient")),TVariant("VGrad1"),TVariant(TDateTime(2010,1,4).operator double()),TVariant(TDateTime(2010,1,9).operator double()),TVariant(""),TNoParam());
var_Items->AddBar(var_Items->AddItem(TVariant("Pattern Gradient")),TVariant("VGrad2"),TVariant(TDateTime(2010,1,4).operator double()),TVariant(TDateTime(2010,1,9).operator double()),TVariant(""),TNoParam());
var_Items->AddBar(var_Items->AddItem(TVariant("Pattern Gradient 3 Colors")),TVariant("VGrad3"),TVariant(TDateTime(2010,1,4).operator double()),TVariant(TDateTime(2010,1,9).operator double()),TVariant(""),TNoParam());
var_Items->AddBar(var_Items->AddItem(TVariant("Solid Gradient 3 Colors")),TVariant("VGrad4"),TVariant(TDateTime(2010,1,4).operator double()),TVariant(TDateTime(2010,1,9).operator double()),TVariant(""),TNoParam());
var_Items->AddBar(var_Items->AddItem(TVariant("Gradient Shadow")),TVariant("VGrad5"),TVariant(TDateTime(2010,1,4).operator double()),TVariant(TDateTime(2010,1,9).operator double()),TVariant(""),TNoParam());
G2antt1->EndUpdate();
|
|
1198
|
Is it possible to display the bars with a thicker border
G2antt1->BeginUpdate();
G2antt1->Columns->Add(L"Task");
G2antt1->Chart->set_FirstVisibleDate(TVariant(TDateTime(2001,1,1).operator double()));
G2antt1->Chart->set_PaneWidth(false,48);
G2antt1->Chart->Bars->Copy(L"Task",L"TaskB")->Pattern = Exg2anttlib_tlb::PatternEnum::exPatternThickBox | Exg2anttlib_tlb::PatternEnum::exPatternShadow;
Exg2anttlib_tlb::IItemsPtr var_Items = G2antt1->Items;
var_Items->AddBar(var_Items->AddItem(TVariant("Task 1")),TVariant("Task"),TVariant(TDateTime(2001,1,2).operator double()),TVariant(TDateTime(2001,1,5).operator double()),TVariant(""),TNoParam());
var_Items->AddBar(var_Items->AddItem(TVariant("Task 2")),TVariant("TaskB"),TVariant(TDateTime(2001,1,2).operator double()),TVariant(TDateTime(2001,1,5).operator double()),TVariant(""),TNoParam());
var_Items->AddBar(var_Items->AddItem(TVariant("Task 3")),TVariant("Task"),TVariant(TDateTime(2001,1,2).operator double()),TVariant(TDateTime(2001,1,5).operator double()),TVariant(""),TNoParam());
G2antt1->EndUpdate();
|
|
1197
|
Is it possible to display the shadow for EBN bars
G2antt1->BeginUpdate();
G2antt1->VisualAppearance->Add(1,TVariant("c:\\exontrol\\images\\normal.ebn"));
G2antt1->Columns->Add(L"Task");
G2antt1->Chart->set_FirstVisibleDate(TVariant(TDateTime(2001,1,1).operator double()));
G2antt1->Chart->set_PaneWidth(false,48);
Exg2anttlib_tlb::IBarPtr var_Bar = G2antt1->Chart->Bars->Copy(L"Task",L"EBN");
var_Bar->Color = 0x1000000;
var_Bar->Pattern = Exg2anttlib_tlb::PatternEnum::exPatternFrameShadow;
G2antt1->Chart->Bars->Copy(L"Task",L"EBN2")->Color = 0x1000000;
Exg2anttlib_tlb::IItemsPtr var_Items = G2antt1->Items;
var_Items->AddBar(var_Items->AddItem(TVariant("Task 1")),TVariant("EBN2"),TVariant(TDateTime(2001,1,2).operator double()),TVariant(TDateTime(2001,1,5).operator double()),TVariant(""),TNoParam());
var_Items->AddBar(var_Items->AddItem(TVariant("Task 2")),TVariant("EBN"),TVariant(TDateTime(2001,1,2).operator double()),TVariant(TDateTime(2001,1,5).operator double()),TVariant(""),TNoParam());
var_Items->AddBar(var_Items->AddItem(TVariant("Task 3")),TVariant("EBN2"),TVariant(TDateTime(2001,1,2).operator double()),TVariant(TDateTime(2001,1,5).operator double()),TVariant(""),TNoParam());
G2antt1->EndUpdate();
|
|
1196
|
Can I display a shadow for my bars
G2antt1->BeginUpdate();
G2antt1->Columns->Add(L"Task");
G2antt1->Chart->set_FirstVisibleDate(TVariant(TDateTime(2001,1,1).operator double()));
G2antt1->Chart->set_PaneWidth(false,48);
G2antt1->Chart->Bars->get_Item(TVariant("Task"))->Pattern = Exg2anttlib_tlb::PatternEnum::exPatternFrameShadow | Exg2anttlib_tlb::PatternEnum::exPatternShadow;
Exg2anttlib_tlb::IItemsPtr var_Items = G2antt1->Items;
var_Items->AddBar(var_Items->AddItem(TVariant("Task 1")),TVariant("Task"),TVariant(TDateTime(2001,1,2).operator double()),TVariant(TDateTime(2001,1,5).operator double()),TVariant(""),TNoParam());
var_Items->AddBar(var_Items->AddItem(TVariant("Task 2")),TVariant("Task"),TVariant(TDateTime(2001,1,2).operator double()),TVariant(TDateTime(2001,1,5).operator double()),TVariant(""),TNoParam());
G2antt1->EndUpdate();
|
|
1195
|
How can I use the Color property for gradient bars
G2antt1->BeginUpdate();
G2antt1->Columns->Add(L"Task");
G2antt1->Chart->set_FirstVisibleDate(TVariant(TDateTime(2001,1,1).operator double()));
G2antt1->Chart->set_PaneWidth(false,48);
Exg2anttlib_tlb::IBarPtr var_Bar = G2antt1->Chart->Bars->Add(L"V");
var_Bar->Color = RGB(255,0,0);
var_Bar->StartColor = RGB(0,255,0);
var_Bar->EndColor = var_Bar->StartColor;
var_Bar->Pattern = Exg2anttlib_tlb::PatternEnum::exPatternGradient3Colors | Exg2anttlib_tlb::PatternEnum::exPatternGradientVBox | Exg2anttlib_tlb::PatternEnum::exPatternBox;
var_Bar->Height = -1;
Exg2anttlib_tlb::IBarPtr var_Bar1 = G2antt1->Chart->Bars->Add(L"H");
var_Bar1->Color = RGB(255,0,0);
var_Bar1->StartColor = RGB(0,255,0);
var_Bar1->EndColor = var_Bar1->StartColor;
var_Bar1->Pattern = Exg2anttlib_tlb::PatternEnum::exPatternGradient3Colors | Exg2anttlib_tlb::PatternEnum::exPatternBox;
Exg2anttlib_tlb::IItemsPtr var_Items = G2antt1->Items;
var_Items->AddBar(var_Items->AddItem(TVariant("Task 1")),TVariant("V"),TVariant(TDateTime(2001,1,2).operator double()),TVariant(TDateTime(2001,1,5).operator double()),TVariant(""),TNoParam());
var_Items->AddBar(var_Items->AddItem(TVariant("Task 2")),TVariant("H"),TVariant(TDateTime(2001,1,2).operator double()),TVariant(TDateTime(2001,1,5).operator double()),TVariant(""),TNoParam());
G2antt1->EndUpdate();
|
|
1194
|
Is there any option to show bars with vertical gradient
G2antt1->Columns->Add(L"Task");
G2antt1->Chart->set_FirstVisibleDate(TVariant(TDateTime(2001,1,1).operator double()));
Exg2anttlib_tlb::IBarPtr var_Bar = G2antt1->Chart->Bars->get_Item(TVariant("Task"));
var_Bar->Color = RGB(255,0,0);
var_Bar->StartColor = RGB(0,255,0);
var_Bar->EndColor = RGB(255,255,0);
var_Bar->Pattern = Exg2anttlib_tlb::PatternEnum::exPatternGradientVBox | Exg2anttlib_tlb::PatternEnum::exPatternBox;
Exg2anttlib_tlb::IItemsPtr var_Items = G2antt1->Items;
long h = var_Items->AddItem(TVariant("Task"));
var_Items->AddBar(h,TVariant("Task"),TVariant(TDateTime(2001,1,2).operator double()),TVariant(TDateTime(2001,1,5).operator double()),TVariant(""),TNoParam());
|
|
1193
|
How can I define a new milestone bar
G2antt1->BeginUpdate();
G2antt1->Images(TVariant(String("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq") +
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="));
G2antt1->Chart->set_FirstVisibleDate(TVariant(TDateTime(2001,1,1).operator double()));
Exg2anttlib_tlb::IBarsPtr var_Bars = G2antt1->Chart->Bars;
var_Bars->AddShapeCorner(TVariant(12345),TVariant(1));
var_Bars->AddShapeCorner(TVariant(12346),TVariant(2));
var_Bars->Copy(L"Milestone",L"M1")->StartShape = Exg2anttlib_tlb::ShapeCornerEnum(0x3020 | Exg2anttlib_tlb::ShapeCornerEnum::exShapeIconVBar | Exg2anttlib_tlb::ShapeCornerEnum::exShapeIconRight);
var_Bars->Copy(L"Milestone",L"M2")->StartShape = Exg2anttlib_tlb::ShapeCornerEnum(0x3020 | Exg2anttlib_tlb::ShapeCornerEnum::exShapeIconSquare | Exg2anttlib_tlb::ShapeCornerEnum::exShapeIconRight);
Exg2anttlib_tlb::IBarPtr var_Bar = var_Bars->Copy(L"Milestone",L"MP");
var_Bar->StartShape = Exg2anttlib_tlb::ShapeCornerEnum::exShapeIconStar;
var_Bar->StartColor = RGB(255,0,0);
G2antt1->Columns->Add(L"Column");
Exg2anttlib_tlb::IItemsPtr var_Items = G2antt1->Items;
var_Items->AddBar(var_Items->AddItem(TVariant("Default")),TVariant("Milestone"),TVariant(TDateTime(2001,1,2).operator double()),TVariant(TDateTime(2001,1,2).operator double()),TNoParam(),TNoParam());
var_Items->AddBar(var_Items->AddItem(TVariant("Predefined")),TVariant("MP"),TVariant(TDateTime(2001,1,3).operator double()),TVariant(TDateTime(2001,1,3).operator double()),TNoParam(),TNoParam());
var_Items->AddBar(var_Items->AddItem(TVariant("Custom 1")),TVariant("M1"),TVariant(TDateTime(2001,1,4).operator double()),TVariant(TDateTime(2001,1,4).operator double()),TNoParam(),TNoParam());
var_Items->AddBar(var_Items->AddItem(TVariant("Custom 2")),TVariant("M2"),TVariant(TDateTime(2001,1,5).operator double()),TVariant(TDateTime(2001,1,5).operator double()),TNoParam(),TNoParam());
G2antt1->EndUpdate();
|
|
1192
|
How can I define my milestone bar, using my icons or pictures
G2antt1->Images(TVariant(String("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq") +
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="));
G2antt1->Chart->set_FirstVisibleDate(TVariant(TDateTime(2001,1,1).operator double()));
Exg2anttlib_tlb::IBarsPtr var_Bars = G2antt1->Chart->Bars;
var_Bars->AddShapeCorner(TVariant(12345),TVariant(1));
var_Bars->get_Item(TVariant("Milestone"))->StartShape = Exg2anttlib_tlb::ShapeCornerEnum(0x3020 | Exg2anttlib_tlb::ShapeCornerEnum::exShapeIconVBar | Exg2anttlib_tlb::ShapeCornerEnum::exShapeIconRight);
G2antt1->Columns->Add(L"Column");
Exg2anttlib_tlb::IItemsPtr var_Items = G2antt1->Items;
var_Items->AddBar(var_Items->AddItem(TVariant("Item 1")),TVariant("Milestone"),TVariant(TDateTime(2001,1,2).operator double()),TVariant(TDateTime(2001,1,2).operator double()),TNoParam(),TNoParam());
|
|
1191
|
Is it possible to specify manually non-working days instead using the NonworkingDays as being repetitive
G2antt1->BeginUpdate();
Exg2anttlib_tlb::IChartPtr var_Chart = G2antt1->Chart;
var_Chart->DrawGridLines = Exg2anttlib_tlb::GridLinesEnum::exAllLines;
var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2010,1,1).operator double()));
var_Chart->set_PaneWidth(false,0);
var_Chart->LevelCount = 2;
var_Chart->get_Level(0)->DrawGridLines = true;
var_Chart->ShowNonworkingUnits = false;
var_Chart->ShowNonworkingDates = false;
var_Chart->NonworkingDays = 0;
var_Chart->AddNonworkingDate(TVariant(TDateTime(2010,1,10).operator double()));
var_Chart->AddNonworkingDate(TVariant(TDateTime(2010,1,11).operator double()));
var_Chart->AddNonworkingDate(TVariant(TDateTime(2010,1,15).operator double()));
var_Chart->AddNonworkingDate(TVariant(TDateTime(2010,1,16).operator double()));
G2antt1->EndUpdate();
|
|
1190
|
Is it possible to hide specific days
G2antt1->BeginUpdate();
Exg2anttlib_tlb::IChartPtr var_Chart = G2antt1->Chart;
var_Chart->DrawGridLines = Exg2anttlib_tlb::GridLinesEnum::exAllLines;
var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2010,1,1).operator double()));
var_Chart->set_PaneWidth(false,0);
var_Chart->LevelCount = 2;
var_Chart->get_Level(0)->DrawGridLines = true;
var_Chart->ShowNonworkingUnits = false;
var_Chart->ShowNonworkingDates = false;
var_Chart->NonworkingDays = 128;
var_Chart->AddNonworkingDate(TVariant(TDateTime(2010,1,10).operator double()));
var_Chart->AddNonworkingDate(TVariant(TDateTime(2010,1,11).operator double()));
var_Chart->AddNonworkingDate(TVariant(TDateTime(2010,1,15).operator double()));
var_Chart->AddNonworkingDate(TVariant(TDateTime(2010,1,16).operator double()));
G2antt1->EndUpdate();
|
|
1189
|
Is it possible to show or display the marked zones ONLY in the overview part of the control
G2antt1->BeginUpdate();
G2antt1->Columns->Add(L"Task");
Exg2anttlib_tlb::IChartPtr var_Chart = G2antt1->Chart;
var_Chart->LevelCount = 2;
var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2001,1,14).operator double()));
var_Chart->set_PaneWidth(false,48);
var_Chart->AllowLinkBars = false;
var_Chart->AllowCreateBar = Exg2anttlib_tlb::CreateBarEnum::exNoCreateBar;
var_Chart->OverviewVisible = Exg2anttlib_tlb::OverviewVisibleEnum::exOverviewShowAllVisible;
var_Chart->Bars->get_Item(TVariant("Task"))->Pattern = Exg2anttlib_tlb::PatternEnum::exPatternSolid;
var_Chart->MarkTimeZone(TVariant("Z1"),TVariant(TDateTime(2001,1,3).operator double()),TVariant(TDateTime(2001,1,4).operator double()),TVariant(var_Chart->BackColor),TVariant(";;Zone <b>1</b>"));
var_Chart->MarkTimeZone(TVariant("Z2"),TVariant(TDateTime(2001,2,6).operator double()),TVariant(TDateTime(2001,2,7).operator double()),TVariant(var_Chart->BackColor),TVariant(";;Zone <b>2</b>"));
var_Chart->MarkTimeZone(TVariant("Z3"),TVariant(TDateTime(2001,1,16).operator double()),TVariant(TDateTime(2001,1,19).operator double()),TVariant(var_Chart->BackColor),TVariant(";;Zone <b>3</b>"));
var_Chart->OverviewShowMarkTimeZones = true;
var_Chart->OverviewBackColor = RGB(220,240,240);
Exg2anttlib_tlb::IItemsPtr var_Items = G2antt1->Items;
long h1 = var_Items->AddItem(TVariant("Task 1"));
var_Items->AddBar(h1,TVariant("Task"),TVariant(TDateTime(2001,1,2).operator double()),TVariant(TDateTime(2001,1,5).operator double()),TVariant("K1"),TNoParam());
long h2 = var_Items->AddItem(TVariant("Task 2"));
var_Items->AddBar(h2,TVariant("Task"),TVariant(TDateTime(2001,2,5).operator double()),TVariant(TDateTime(2001,2,8).operator double()),TVariant("K2"),TNoParam());
var_Items->AddLink(TVariant("L1"),h1,TVariant("K1"),h2,TVariant("K2"));
G2antt1->EndUpdate();
|
|
1188
|
Is it possible to show or display the marked zones in the overview part of the control
G2antt1->BeginUpdate();
G2antt1->Columns->Add(L"Task");
Exg2anttlib_tlb::IChartPtr var_Chart = G2antt1->Chart;
var_Chart->LevelCount = 2;
var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2001,1,14).operator double()));
var_Chart->set_PaneWidth(false,48);
var_Chart->AllowLinkBars = false;
var_Chart->AllowCreateBar = Exg2anttlib_tlb::CreateBarEnum::exNoCreateBar;
var_Chart->OverviewVisible = Exg2anttlib_tlb::OverviewVisibleEnum::exOverviewShowAllVisible;
var_Chart->Bars->get_Item(TVariant("Task"))->Pattern = Exg2anttlib_tlb::PatternEnum::exPatternSolid;
var_Chart->MarkTimeZone(TVariant("Z1"),TVariant(TDateTime(2001,1,3).operator double()),TVariant(TDateTime(2001,1,4).operator double()),TVariant(16777056),TNoParam());
var_Chart->MarkTimeZone(TVariant("Z2"),TVariant(TDateTime(2001,2,6).operator double()),TVariant(TDateTime(2001,2,7).operator double()),TVariant(16744544),TNoParam());
var_Chart->MarkTimeZone(TVariant("Z3"),TVariant(TDateTime(2001,1,16).operator double()),TVariant(TDateTime(2001,1,19).operator double()),TVariant(16744544),TNoParam());
var_Chart->OverviewShowMarkTimeZones = true;
Exg2anttlib_tlb::IItemsPtr var_Items = G2antt1->Items;
long h1 = var_Items->AddItem(TVariant("Task 1"));
var_Items->AddBar(h1,TVariant("Task"),TVariant(TDateTime(2001,1,2).operator double()),TVariant(TDateTime(2001,1,5).operator double()),TVariant("K1"),TNoParam());
long h2 = var_Items->AddItem(TVariant("Task 2"));
var_Items->AddBar(h2,TVariant("Task"),TVariant(TDateTime(2001,2,5).operator double()),TVariant(TDateTime(2001,2,8).operator double()),TVariant("K2"),TNoParam());
var_Items->AddLink(TVariant("L1"),h1,TVariant("K1"),h2,TVariant("K2"));
G2antt1->EndUpdate();
|
|
1187
|
Is there a quick way to determine if a bar belongs to a group
G2antt1->Columns->Add(L"Task");
Exg2anttlib_tlb::IChartPtr var_Chart = G2antt1->Chart;
var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2001,1,1).operator double()));
var_Chart->set_PaneWidth(false,64);
Exg2anttlib_tlb::IItemsPtr var_Items = G2antt1->Items;
long h1 = var_Items->AddItem(TVariant("Task 1"));
var_Items->AddBar(h1,TVariant("Task"),TVariant(TDateTime(2001,1,2).operator double()),TVariant(TDateTime(2001,1,4).operator double()),TVariant("K1"),TNoParam());
long h2 = var_Items->AddItem(TVariant("Task 2"));
var_Items->AddBar(h2,TVariant("Task"),TVariant(TDateTime(2001,1,5).operator double()),TVariant(TDateTime(2001,1,7).operator double()),TVariant("K2"),TNoParam());
long h3 = var_Items->AddItem(TVariant("Task 3"));
var_Items->AddBar(h3,TVariant("Task"),TVariant(TDateTime(2001,1,5).operator double()),TVariant(TDateTime(2001,1,7).operator double()),TVariant("K3"),TNoParam());
var_Items->GroupBars(h1,TVariant("K1"),true,h2,TVariant("K2"),true,TNoParam(),TNoParam());
var_Items->GroupBars(h1,TVariant("K1"),false,h2,TVariant("K2"),false,TNoParam(),TNoParam());
var_Items->GroupBars(h1,TVariant("K1"),true,h3,TVariant("K3"),true,TNoParam(),TNoParam());
var_Items->GroupBars(h1,TVariant("K1"),false,h3,TVariant("K3"),false,TNoParam(),TNoParam());
OutputDebugString( PChar(var_Items->get_ItemBar(h1,TVariant("K1"),Exg2anttlib_tlb::ItemBarPropertyEnum::exBarsGroup)) );
|
|
1186
|
I am using the ScrollRange property to limit the chart's visible area, but it does not work as expected. What could be wrong
G2antt1->BeginUpdate();
G2antt1->Columns->Add(L"Task");
Exg2anttlib_tlb::IChartPtr var_Chart = G2antt1->Chart;
var_Chart->LevelCount = 2;
var_Chart->set_PaneWidth(false,56);
var_Chart->set_ScrollRange(Exg2anttlib_tlb::ScrollRangeEnum::exStartDate,TVariant(TDateTime(100,1,1).operator double()));
var_Chart->set_ScrollRange(Exg2anttlib_tlb::ScrollRangeEnum::exEndDate,TVariant(TDateTime(9999,12,31).operator double()));
var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2010,4,28).operator double()));
G2antt1->ScrollPartCaption[Exg2anttlib_tlb::ScrollBarEnum::exHChartScroll,Exg2anttlib_tlb::ScrollPartEnum::exLowerBackPart] = PChar(G2antt1->Chart->get_ScrollRange(Exg2anttlib_tlb::ScrollRangeEnum::exStartDate));
G2antt1->ScrollPartCaptionAlignment[Exg2anttlib_tlb::ScrollBarEnum::exHChartScroll,Exg2anttlib_tlb::ScrollPartEnum::exLowerBackPart] = Exg2anttlib_tlb::AlignmentEnum::LeftAlignment;
G2antt1->ScrollPartCaption[Exg2anttlib_tlb::ScrollBarEnum::exHChartScroll,Exg2anttlib_tlb::ScrollPartEnum::exUpperBackPart] = PChar(G2antt1->Chart->get_ScrollRange(Exg2anttlib_tlb::ScrollRangeEnum::exEndDate));
G2antt1->ScrollPartCaptionAlignment[Exg2anttlib_tlb::ScrollBarEnum::exHChartScroll,Exg2anttlib_tlb::ScrollPartEnum::exUpperBackPart] = Exg2anttlib_tlb::AlignmentEnum::RightAlignment;
G2antt1->EndUpdate();
|
|
1185
|
Are you planning to add a AddNonworkingDate / AddNonworkingDay for separate items
G2antt1->BeginUpdate();
G2antt1->AllowChartScrollPage = true;
G2antt1->Columns->Add(L"Non-Work");
Exg2anttlib_tlb::IChartPtr var_Chart = G2antt1->Chart;
var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2009,4,4).operator double()));
var_Chart->set_PaneWidth(false,52);
var_Chart->LevelCount = 2;
Exg2anttlib_tlb::IItemsPtr var_Items = G2antt1->Items;
var_Items->AddItem(TVariant("Default"));
var_Items->set_ItemNonworkingUnits(var_Items->AddItem(TVariant("Test 1")),TVariant(false),L"shortdate(value) in (#4/5/2009#,#4/6/2009#)");
var_Items->set_ItemNonworkingUnits(var_Items->AddItem(TVariant("Test 2")),TVariant(false),L"shortdate(value) in (#4/6/2009#,#4/7/2009#)");
var_Items->set_ItemNonworkingUnits(var_Items->AddItem(TVariant("Test 3")),TVariant(false),L"shortdate(value) in (#4/7/2009#,#4/9/2009#)");
var_Items->AddItem(TVariant("Default"));
G2antt1->EndUpdate();
|
|
1184
|
How can I enlarge the EBN being applied to an object
G2antt1->BeginUpdate();
G2antt1->DefaultItemHeight = 32;
Exg2anttlib_tlb::IAppearancePtr var_Appearance = G2antt1->VisualAppearance;
var_Appearance->Add(2,TVariant("c:\\exontrol\\images\\normal.ebn"));
var_Appearance->Add(1,TVariant("CP:2 -3 -2 3 2"));
Exg2anttlib_tlb::IChartPtr var_Chart = G2antt1->Chart;
var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2002,1,1).operator double()));
var_Chart->SelBarColor = 0x1000000;
var_Chart->set_PaneWidth(false,48);
G2antt1->Columns->Add(L"Task");
Exg2anttlib_tlb::IItemsPtr var_Items = G2antt1->Items;
long h = var_Items->AddItem(TVariant("Task 1"));
var_Items->AddBar(h,TVariant("Task"),TVariant(TDateTime(2002,1,2).operator double()),TVariant(TDateTime(2002,1,4).operator double()),TVariant("A"),TNoParam());
var_Items->AddBar(h,TVariant("Task"),TVariant(TDateTime(2002,1,6).operator double()),TVariant(TDateTime(2002,1,10).operator double()),TVariant("B"),TNoParam());
var_Items->AddBar(h,TVariant("Task"),TVariant(TDateTime(2002,1,11).operator double()),TVariant(TDateTime(2002,1,14).operator double()),TVariant("C"),TNoParam());
var_Items->set_ItemBar(h,TVariant("A"),Exg2anttlib_tlb::ItemBarPropertyEnum::exBarSelected,TVariant(true));
var_Items->set_ItemBar(h,TVariant("B"),Exg2anttlib_tlb::ItemBarPropertyEnum::exBarSelected,TVariant(true));
G2antt1->EndUpdate();
|
|
1183
|
I am using EBN to display my bars but the bars shows in black in the overview area. Is there any option to specify a different color in the overview part of the control
G2antt1->BeginUpdate();
G2antt1->VisualAppearance->Add(1,TVariant("c:\\exontrol\\images\\normal.ebn"));
Exg2anttlib_tlb::IChartPtr var_Chart = G2antt1->Chart;
var_Chart->Bars->get_Item(TVariant("Task"))->Color = 0x1000000;
var_Chart->set_PaneWidth(false,48);
var_Chart->OverviewVisible = Exg2anttlib_tlb::OverviewVisibleEnum::exOverviewShowAllVisible;
var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2001,1,11).operator double()));
var_Chart->LevelCount = 2;
G2antt1->Columns->Add(L"Column");
Exg2anttlib_tlb::IItemsPtr var_Items = G2antt1->Items;
long h = var_Items->AddItem(TVariant("Task 1"));
var_Items->AddBar(h,TVariant("Task"),TVariant(TDateTime(2001,1,2).operator double()),TVariant(TDateTime(2001,1,4).operator double()),TVariant(1),TNoParam());
var_Items->set_ItemBar(h,TVariant(1),Exg2anttlib_tlb::ItemBarPropertyEnum::exBarOverviewColor,TVariant(8821418));
var_Items->AddBar(h,TVariant("Task"),TVariant(TDateTime(2001,2,2).operator double()),TVariant(TDateTime(2001,2,4).operator double()),TVariant(2),TNoParam());
var_Items->set_ItemBar(h,TVariant(2),Exg2anttlib_tlb::ItemBarPropertyEnum::exBarOverviewColor,TVariant(8821418));
h = var_Items->AddItem(TVariant("Task 2"));
var_Items->AddBar(h,TVariant("Task"),TVariant(TDateTime(2001,2,2).operator double()),TVariant(TDateTime(2001,2,4).operator double()),TVariant(""),TNoParam());
var_Items->set_ItemBar(h,TVariant(""),Exg2anttlib_tlb::ItemBarPropertyEnum::exBarOverviewColor,TVariant(8821418));
G2antt1->EndUpdate();
|
|
1182
|
I haven't found options to localize (in Italian) the strings ( dates, tooltip ) that shows in the chart area
G2antt1->BeginUpdate();
Exg2anttlib_tlb::IChartPtr var_Chart = G2antt1->Chart;
var_Chart->LevelCount = 2;
var_Chart->set_PaneWidth(false,0);
var_Chart->set_Label(Exg2anttlib_tlb::UnitEnum::exWeek,L"<|><%ww%><|><%d%> <%m3%> '<%yy%><r><%ww%><|><%d%> <%mmmm%> <%yyyy%><r><%ww%><||><||>256");
var_Chart->set_Label(Exg2anttlib_tlb::UnitEnum::exDay,L"<|><%d1%><|><%d2%><|><%d3%><|><%dddd%><|><%d3%> <%d%> <%m3%> '<%yy%><|><%dddd%> <%d%> <%mmmm%> <%yyyy%><||><||>4096");
var_Chart->set_LabelToolTip(Exg2anttlib_tlb::UnitEnum::exWeek,L"<%d%> <%mmmm%> <%yyyy%> <%ww%>");
var_Chart->set_LabelToolTip(Exg2anttlib_tlb::UnitEnum::exDay,L"<%dddd%> <%d%> <%mmmm%> <%yyyy%>");
var_Chart->FirstWeekDay = Exg2anttlib_tlb::WeekDayEnum::exMonday;
var_Chart->MonthNames = L"gennaio febbraio marzo aprile maggio giugno luglio agosto settembre ottobre novembre dicembre";
var_Chart->WeekDays = L"domenica lunedì martedì mercoledì giovedì venerdì sabato";
var_Chart->ToolTip = L"<%dddd%> <%d%> <%mmmm%> <%yyyy%>";
var_Chart->UnitScale = Exg2anttlib_tlb::UnitEnum::exDay;
G2antt1->EndUpdate();
|
|
1181
|
I haven't found options to localize (in Dutch) the strings ( dates, tooltip ) that shows in the chart area
G2antt1->BeginUpdate();
Exg2anttlib_tlb::IChartPtr var_Chart = G2antt1->Chart;
var_Chart->LevelCount = 2;
var_Chart->set_PaneWidth(false,0);
var_Chart->set_Label(Exg2anttlib_tlb::UnitEnum::exWeek,L"<|><%ww%><|><%d%> <%m3%> '<%yy%><r><%ww%><|><%d%> <%mmmm%> <%yyyy%><r><%ww%><||><||>256");
var_Chart->set_Label(Exg2anttlib_tlb::UnitEnum::exDay,L"<|><%d1%><|><%d2%><|><%d3%><|><%dddd%><|><%d3%> <%d%> <%m3%> '<%yy%><|><%dddd%> <%d%> <%mmmm%> <%yyyy%><||><||>4096");
var_Chart->set_LabelToolTip(Exg2anttlib_tlb::UnitEnum::exWeek,L"<%d%> <%mmmm%> <%yyyy%> <%ww%>");
var_Chart->set_LabelToolTip(Exg2anttlib_tlb::UnitEnum::exDay,L"<%dddd%> <%d%> <%mmmm%> <%yyyy%>");
var_Chart->FirstWeekDay = Exg2anttlib_tlb::WeekDayEnum::exMonday;
var_Chart->MonthNames = L"januari februari maart april mei juni juli augusts september oktober november december";
var_Chart->WeekDays = L"zondag maandag dinsdag woensdag donderdag vrijdag zaterdag";
var_Chart->ToolTip = L"<%dddd%> <%d%> <%mmmm%> <%yyyy%>";
var_Chart->UnitScale = Exg2anttlib_tlb::UnitEnum::exDay;
G2antt1->EndUpdate();
|
|
1180
|
I haven't found options to localize (in German) the strings ( dates, tooltip ) that shows in the chart area (method 1)
G2antt1->BeginUpdate();
Exg2anttlib_tlb::IChartPtr var_Chart = G2antt1->Chart;
var_Chart->LevelCount = 2;
var_Chart->set_PaneWidth(false,0);
var_Chart->set_Label(Exg2anttlib_tlb::UnitEnum::exWeek,L"<|><%ww%><|><%d%> <%m3%> '<%yy%><r><%ww%><|><%d%>.<%mmmm%> <%yyyy%><r><%ww%><||><||>256");
var_Chart->set_Label(Exg2anttlib_tlb::UnitEnum::exDay,L"<|><%d1%><|><%d2%><|><%d3%><|><%dddd%><|><%d3%> <%d%>.<%m3%> '<%yy%><|><%dddd%> <%d%>.<%mmmm%> <%yyyy%><||><||>4096");
var_Chart->set_LabelToolTip(Exg2anttlib_tlb::UnitEnum::exWeek,L"<%d%>.<%mmmm%> <%yyyy%> <%ww%>");
var_Chart->set_LabelToolTip(Exg2anttlib_tlb::UnitEnum::exDay,L"<%dddd%>, <%d%>.<%mmmm%> <%yyyy%>");
var_Chart->FirstWeekDay = Exg2anttlib_tlb::WeekDayEnum::exMonday;
var_Chart->MonthNames = L"Januar Februar März April Mai Juni Juli August September Oktober November Dezember";
var_Chart->WeekDays = L"Sonntag Montag Dienstag Mittwoch Donnerstag Freitag Samstag";
var_Chart->ToolTip = L"<%dddd%>,<%d%>.<%mmmm%> <%yyyy%>";
var_Chart->UnitScale = Exg2anttlib_tlb::UnitEnum::exDay;
G2antt1->EndUpdate();
|
|
1179
|
I haven't found options to localize (in French) the strings ( dates, tooltip ) that shows in the chart area
G2antt1->BeginUpdate();
Exg2anttlib_tlb::IChartPtr var_Chart = G2antt1->Chart;
var_Chart->LevelCount = 2;
var_Chart->set_PaneWidth(false,0);
var_Chart->set_Label(Exg2anttlib_tlb::UnitEnum::exWeek,L"<|><%ww%><|><%d%> <%m3%> '<%yy%><r><%ww%><|><%d%> <%mmmm%> <%yyyy%><r><%ww%><||><||>256");
var_Chart->set_Label(Exg2anttlib_tlb::UnitEnum::exDay,L"<|><%d1%><|><%d2%><|><%d3%><|><%dddd%><|><%d3%> <%d%> <%m3%> '<%yy%><|><%dddd%> <%d%> <%mmmm%> <%yyyy%><||><||>4096");
var_Chart->set_LabelToolTip(Exg2anttlib_tlb::UnitEnum::exWeek,L"<%d%> <%mmmm%> <%yyyy%> <%ww%>");
var_Chart->set_LabelToolTip(Exg2anttlib_tlb::UnitEnum::exDay,L"<%dddd%> <%d%> <%mmmm%> <%yyyy%>");
var_Chart->FirstWeekDay = Exg2anttlib_tlb::WeekDayEnum::exMonday;
var_Chart->MonthNames = L"janvier février mars avril mai juin juillet août septembre octobre novembre décembre";
var_Chart->WeekDays = L"dimanche lundi mardi mercredi jeudi vendredi samedi";
var_Chart->ToolTip = L"<%dddd%> <%d%> <%mmmm%> <%yyyy%>";
var_Chart->UnitScale = Exg2anttlib_tlb::UnitEnum::exDay;
G2antt1->EndUpdate();
|
|
1178
|
How can I determine the last visible date in the chart
// MouseMove event - Occurs when the user moves the mouse.
void __fastcall TForm1::G2antt1MouseMove(TObject *Sender,short Button,short Shift,int X,int Y)
{
OutputDebugString( L"First" );
OutputDebugString( PChar(G2antt1->Chart->get_FirstVisibleDate()) );
OutputDebugString( L"Last" );
OutputDebugString( PChar(G2antt1->Chart->get_DateFromPoint(1,-1)) );
}
G2antt1->BeginUpdate();
Exg2anttlib_tlb::IChartPtr var_Chart = G2antt1->Chart;
var_Chart->LevelCount = 2;
var_Chart->set_PaneWidth(false,1);
G2antt1->EndUpdate();
|
|
1177
|
How can I filter programatically using more columns
G2antt1->BeginUpdate();
G2antt1->Chart->set_PaneWidth(true,0);
G2antt1->MarkSearchColumn = false;
Exg2anttlib_tlb::IColumnsPtr var_Columns = G2antt1->Columns;
var_Columns->Add(L"Car");
var_Columns->Add(L"Equipment");
Exg2anttlib_tlb::IItemsPtr var_Items = G2antt1->Items;
var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant("Mazda"))),TVariant(1),TVariant("Air Bag"));
var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant("Toyota"))),TVariant(1),TVariant("Air Bag,Air condition"));
var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant("Ford"))),TVariant(1),TVariant("Air condition"));
var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant("Nissan"))),TVariant(1),TVariant("Air Bag,ABS,ESP"));
var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant("Mazda"))),TVariant(1),TVariant("Air Bag, ABS,ESP"));
var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant("Mazda"))),TVariant(1),TVariant("ABS,ESP"));
Exg2anttlib_tlb::IColumnPtr var_Column = G2antt1->Columns->get_Item(TVariant("Car"));
var_Column->FilterType = Exg2anttlib_tlb::FilterTypeEnum::exFilter;
var_Column->Filter = L"Mazda";
Exg2anttlib_tlb::IColumnPtr var_Column1 = G2antt1->Columns->get_Item(TVariant("Equipment"));
var_Column1->FilterType = Exg2anttlib_tlb::FilterTypeEnum::exPattern;
var_Column1->Filter = L"*ABS*|*ESP*";
G2antt1->ApplyFilter();
G2antt1->EndUpdate();
|
|
1176
|
Do you have scheduling functionality in Gantt (meaning scheduling several activities (bars) depending on their start and finish dates with considering dependencies to other activities
// BarResize event - Occurs when a bar is moved or resized.
void __fastcall TForm1::G2antt1BarResize(TObject *Sender,Exg2anttlib_tlb::HITEM Item,Variant Key)
{
G2antt1->Items->SchedulePDM(Item,TVariant(Key));
}
G2antt1->BeginUpdate();
G2antt1->Items->AllowCellValueToItemBar = true;
G2antt1->Columns->Add(L"Task");
G2antt1->Columns->Add(L"Working")->set_Def(Exg2anttlib_tlb::DefColumnEnum::exCellValueToItemBarProperty,TVariant(258));
Exg2anttlib_tlb::IChartPtr var_Chart = G2antt1->Chart;
var_Chart->Bars->Add(L"Task:Split")->Shortcut = L"Task";
var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2000,12,28).operator double()));
var_Chart->set_PaneWidth(false,96);
var_Chart->AllowLinkBars = false;
var_Chart->AllowCreateBar = Exg2anttlib_tlb::CreateBarEnum::exNoCreateBar;
Exg2anttlib_tlb::IItemsPtr var_Items = G2antt1->Items;
long h1 = var_Items->AddItem(TVariant("Task 1"));
var_Items->AddBar(h1,TVariant("Task"),TVariant(TDateTime(2001,1,2).operator double()),TVariant(TDateTime(2001,1,4).operator double()),TVariant(""),TNoParam());
long h2 = var_Items->AddItem(TVariant("Task 2"));
var_Items->AddBar(h2,TVariant("Task"),TVariant(TDateTime(2001,1,2).operator double()),TVariant(TDateTime(2001,1,4).operator double()),TVariant(""),TNoParam());
var_Items->AddLink(TVariant("L1"),h1,TVariant(""),h2,TVariant(""));
long h3 = var_Items->AddItem(TVariant("Task 3"));
var_Items->AddBar(h3,TVariant("Task"),TVariant(TDateTime(2001,1,2).operator double()),TVariant(TDateTime(2001,1,6).operator double()),TVariant(""),TNoParam());
var_Items->AddLink(TVariant("L2"),h2,TVariant(""),h3,TVariant(""));
var_Items->set_Link(TVariant("L2"),Exg2anttlib_tlb::LinkPropertyEnum::exLinkText,TVariant("FF"));
var_Items->set_Link(TVariant("L2"),Exg2anttlib_tlb::LinkPropertyEnum::exLinkStartPos,TVariant(2));
var_Items->set_Link(TVariant("L2"),Exg2anttlib_tlb::LinkPropertyEnum::exLinkEndPos,TVariant(2));
long h4 = var_Items->AddItem(TVariant("Task 4"));
var_Items->AddBar(h4,TVariant("Task"),TVariant(TDateTime(2001,1,2).operator double()),TVariant(TDateTime(2001,1,4).operator double()),TVariant(""),TNoParam());
var_Items->AddLink(TVariant("L3"),h4,TVariant(""),h3,TVariant(""));
var_Items->set_ItemBar(0,TVariant("<*>"),Exg2anttlib_tlb::ItemBarPropertyEnum::exBarKeepWorkingCount,TVariant(true));
var_Items->SchedulePDM(var_Items->FirstVisibleItem,TVariant(""));
G2antt1->EndUpdate();
|
|
1175
|
How can I show the ticks for a single slider field
G2antt1->BeginUpdate();
G2antt1->Columns->Add(L"Slider")->Editor->EditType = Exg2anttlib_tlb::EditTypeEnum::SliderType;
Exg2anttlib_tlb::IItemsPtr var_Items = G2antt1->Items;
var_Items->AddItem(TVariant(10));
Exg2anttlib_tlb::IEditorPtr var_Editor = var_Items->get_CellEditor(TVariant(var_Items->AddItem(TVariant(20))),TVariant(0));
var_Editor->EditType = Exg2anttlib_tlb::EditTypeEnum::SliderType;
var_Editor->set_Option(Exg2anttlib_tlb::EditorOptionEnum::exSliderTickFrequency,TVariant(10));
var_Items->AddItem(TVariant(30));
G2antt1->EndUpdate();
|
|
1174
|
Is it possible to show ticks for slider fields
Exg2anttlib_tlb::IEditorPtr var_Editor = G2antt1->Columns->Add(L"Slider")->Editor;
var_Editor->EditType = Exg2anttlib_tlb::EditTypeEnum::SliderType;
var_Editor->set_Option(Exg2anttlib_tlb::EditorOptionEnum::exSliderTickFrequency,TVariant(10));
G2antt1->Items->AddItem(TVariant(10));
|
|
1173
|
How can I group two bars so the distance between them is limited to a specified range
G2antt1->BeginUpdate();
G2antt1->Columns->Add(L"Tasks");
Exg2anttlib_tlb::IChartPtr var_Chart = G2antt1->Chart;
var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2006,9,20).operator double()));
var_Chart->set_PaneWidth(false,48);
var_Chart->LevelCount = 2;
Exg2anttlib_tlb::IItemsPtr var_Items = G2antt1->Items;
long h1 = var_Items->AddItem(TVariant("Task 1"));
var_Items->AddBar(h1,TVariant("Task"),TVariant(TDateTime(2006,9,21).operator double()),TVariant(TDateTime(2006,9,24).operator double()),TNoParam(),TNoParam());
long h2 = var_Items->AddItem(TVariant("Task 2"));
var_Items->AddBar(h2,TVariant("Unknown"),TVariant(TDateTime(2006,9,25).operator double()),TVariant(TDateTime(2006,9,28).operator double()),TNoParam(),TNoParam());
var_Items->AddLink(TVariant("L1"),h1,TVariant(""),h2,TVariant(""));
var_Items->GroupBars(h1,TVariant(""),false,h2,TVariant(""),true,TVariant(31),TVariant("1;2"));
OutputDebugString( L"The distance between A and B is limited between 1 and 3 days" );
OutputDebugString( L"The B is always after the A" );
G2antt1->EndUpdate();
|
|
1172
|
How can I group two bars so the distance between them is flexible but never less than a specified value
G2antt1->BeginUpdate();
G2antt1->Columns->Add(L"Tasks");
Exg2anttlib_tlb::IChartPtr var_Chart = G2antt1->Chart;
var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2006,9,20).operator double()));
var_Chart->set_PaneWidth(false,48);
var_Chart->LevelCount = 2;
Exg2anttlib_tlb::IItemsPtr var_Items = G2antt1->Items;
long h1 = var_Items->AddItem(TVariant("Task 1"));
var_Items->AddBar(h1,TVariant("Task"),TVariant(TDateTime(2006,9,21).operator double()),TVariant(TDateTime(2006,9,24).operator double()),TNoParam(),TNoParam());
long h2 = var_Items->AddItem(TVariant("Task 2"));
var_Items->AddBar(h2,TVariant("Unknown"),TVariant(TDateTime(2006,9,26).operator double()),TVariant(TDateTime(2006,9,29).operator double()),TNoParam(),TNoParam());
var_Items->AddLink(TVariant("L1"),h1,TVariant(""),h2,TVariant(""));
var_Items->GroupBars(h1,TVariant(""),false,h2,TVariant(""),true,TVariant(39),TVariant("2"));
OutputDebugString( L"The distance between A and B is never less than 2 days" );
OutputDebugString( L"The B is always after the A" );
G2antt1->EndUpdate();
|
|
1171
|
How can I group two bars so the distance between them is flexible
G2antt1->BeginUpdate();
G2antt1->Columns->Add(L"Tasks");
Exg2anttlib_tlb::IChartPtr var_Chart = G2antt1->Chart;
var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2006,9,20).operator double()));
var_Chart->set_PaneWidth(false,48);
var_Chart->LevelCount = 2;
Exg2anttlib_tlb::IItemsPtr var_Items = G2antt1->Items;
long h1 = var_Items->AddItem(TVariant("Task 1"));
var_Items->AddBar(h1,TVariant("Task"),TVariant(TDateTime(2006,9,21).operator double()),TVariant(TDateTime(2006,9,24).operator double()),TNoParam(),TNoParam());
long h2 = var_Items->AddItem(TVariant("Task 2"));
var_Items->AddBar(h2,TVariant("Unknown"),TVariant(TDateTime(2006,9,26).operator double()),TVariant(TDateTime(2006,9,29).operator double()),TNoParam(),TNoParam());
var_Items->AddLink(TVariant("L1"),h1,TVariant(""),h2,TVariant(""));
var_Items->GroupBars(h1,TVariant(""),false,h2,TVariant(""),true,TVariant(39),TNoParam());
OutputDebugString( L"The distance between A and B is flexible, unlimited" );
OutputDebugString( L"The B is always after the A" );
G2antt1->EndUpdate();
|
|
1170
|
How can I group two bars so the interval between them is fixed
G2antt1->BeginUpdate();
G2antt1->Columns->Add(L"Tasks");
Exg2anttlib_tlb::IChartPtr var_Chart = G2antt1->Chart;
var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2006,9,20).operator double()));
var_Chart->set_PaneWidth(false,48);
var_Chart->LevelCount = 2;
Exg2anttlib_tlb::IItemsPtr var_Items = G2antt1->Items;
long h = var_Items->AddItem(TVariant("Task 1"));
var_Items->AddBar(h,TVariant("Task"),TVariant(TDateTime(2006,9,21).operator double()),TVariant(TDateTime(2006,9,24).operator double()),TVariant("T1"),TVariant("A"));
var_Items->AddBar(h,TVariant("Unknown"),TVariant(TDateTime(2006,9,26).operator double()),TVariant(TDateTime(2006,9,29).operator double()),TVariant("T2"),TVariant("B"));
var_Items->AddLink(TVariant("L"),h,TVariant("T1"),h,TVariant("T2"));
var_Items->set_Link(TVariant("L"),Exg2anttlib_tlb::LinkPropertyEnum::exLinkGroupBars,TVariant(27));
var_Items->set_Link(TVariant("L"),Exg2anttlib_tlb::LinkPropertyEnum::exLinkShowDir,TVariant(false));
long h2 = var_Items->AddItem(TVariant("Task 2"));
var_Items->AddBar(h2,TVariant("Unknown"),TVariant(TDateTime(2006,9,26).operator double()),TVariant(TDateTime(2006,9,29).operator double()),TVariant("T2"),TVariant("B"));
var_Items->AddLink(TVariant("L2"),h,TVariant("T1"),h2,TVariant("T2"));
var_Items->set_Link(TVariant("L2"),Exg2anttlib_tlb::LinkPropertyEnum::exLinkGroupBars,TVariant(27));
var_Items->set_Link(TVariant("L2"),Exg2anttlib_tlb::LinkPropertyEnum::exLinkShowDir,TVariant(false));
OutputDebugString( L"The distance between bars is constant" );
OutputDebugString( L"The B is always after the A" );
G2antt1->EndUpdate();
|
|
1169
|
How can I group two bars when linking, so moving the first bar will makes the second to move accordingly
G2antt1->BeginUpdate();
G2antt1->Columns->Add(L"Tasks");
Exg2anttlib_tlb::IChartPtr var_Chart = G2antt1->Chart;
var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2006,9,20).operator double()));
var_Chart->set_PaneWidth(false,48);
var_Chart->LevelCount = 2;
Exg2anttlib_tlb::IItemsPtr var_Items = G2antt1->Items;
long h1 = var_Items->AddItem(TVariant("Task 1"));
var_Items->AddBar(h1,TVariant("Task"),TVariant(TDateTime(2006,9,21).operator double()),TVariant(TDateTime(2006,9,24).operator double()),TVariant(""),TVariant("A"));
long h2 = var_Items->AddItem(TVariant("Task 2"));
var_Items->AddBar(h2,TVariant("Unknown"),TVariant(TDateTime(2006,9,26).operator double()),TVariant(TDateTime(2006,9,29).operator double()),TVariant(""),TVariant("B"));
var_Items->AddLink(TVariant("L1"),h1,TVariant(""),h2,TVariant(""));
var_Items->set_Link(TVariant("L1"),Exg2anttlib_tlb::LinkPropertyEnum::exLinkGroupBars,TVariant(39));
OutputDebugString( L"The distance between A and B is flexible, unlimited" );
OutputDebugString( L"The B is always after the A" );
G2antt1->EndUpdate();
|
|
1168
|
Is it possible to be notified when the user clicks an anchor element a hyperlink in the date-time zone
// AnchorClick event - Occurs when an anchor element is clicked.
void __fastcall TForm1::G2antt1AnchorClick(TObject *Sender,BSTR AnchorID,BSTR Options)
{
OutputDebugString( L"Click: " );
OutputDebugString( L"AnchorID" );
}
G2antt1->BeginUpdate();
Exg2anttlib_tlb::IChartPtr var_Chart = G2antt1->Chart;
var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2000,12,28).operator double()));
var_Chart->set_PaneWidth(false,48);
var_Chart->MarkTimeZone(TVariant("Z"),TVariant(TDateTime(2001,1,2).operator double()),TVariant(TDateTime(2001,1,5).operator double()),TVariant(15753471),TVariant(";32;Caption <a1><b>1</b></a>;1;Caption <a2><b>2</b></a>;17;Caption <a3><b>3</b></a>"));
G2antt1->EndUpdate();
|
|
1167
|
Is it possible to be notified when the user clicks a date-time zone
// Click event - Occurs when the user presses and then releases the left mouse button over the tree control.
void __fastcall TForm1::G2antt1Click(TObject *Sender)
{
Exg2anttlib_tlb::IChartPtr var_Chart = G2antt1->Chart;
OutputDebugString( L"Click: " );
OutputDebugString( PChar(var_Chart->get_TimeZoneFromPoint(-1,-1)) );
}
G2antt1->BeginUpdate();
Exg2anttlib_tlb::IChartPtr var_Chart = G2antt1->Chart;
var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2000,12,28).operator double()));
var_Chart->set_PaneWidth(false,48);
var_Chart->MarkTimeZone(TVariant("Z"),TVariant(TDateTime(2001,1,2).operator double()),TVariant(TDateTime(2001,1,5).operator double()),TVariant(16711680),TVariant(";32;DATE-TIME<br> ZONE"));
G2antt1->EndUpdate();
|
|
1166
|
Is is possible to display multiple captions in the same date-time zone
G2antt1->BeginUpdate();
Exg2anttlib_tlb::IChartPtr var_Chart = G2antt1->Chart;
var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2000,12,28).operator double()));
var_Chart->set_PaneWidth(false,48);
var_Chart->MarkTimeZone(TVariant("Z"),TVariant(TDateTime(2001,1,5).operator double()),TVariant(TDateTime(2001,1,8).operator double()),TVariant(12895487),TVariant(";;Caption <b>1</b>;1;Caption <b>2</b>;17;Caption <b>3</b>"));
G2antt1->EndUpdate();
|
|
1165
|
Is is possible to align on the top the caption for the date-time zone
G2antt1->BeginUpdate();
Exg2anttlib_tlb::IChartPtr var_Chart = G2antt1->Chart;
var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2000,12,28).operator double()));
var_Chart->set_PaneWidth(false,48);
var_Chart->MarkTimeZone(TVariant("Z"),TVariant(TDateTime(2001,1,5).operator double()),TVariant(TDateTime(2001,1,8).operator double()),TVariant(12895487),TVariant(";;UpperCenter;1"));
G2antt1->EndUpdate();
|
|
1164
|
Is there any option to display a picture on the date-time zone
G2antt1->BeginUpdate();
G2antt1->HTMLPicture[L"pic1"] = TVariant("c:\\exontrol\\images\\card.png");
Exg2anttlib_tlb::IChartPtr var_Chart = G2antt1->Chart;
var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2000,12,28).operator double()));
var_Chart->set_PaneWidth(false,48);
var_Chart->MarkTimeZone(TVariant("Z"),TVariant(TDateTime(2001,1,5).operator double()),TVariant(TDateTime(2001,1,8).operator double()),TVariant(12895487),TVariant(";;<c><img>pic1</img><br><c>picture"));
G2antt1->EndUpdate();
|
|
1163
|
Is there any option to display a text or a HTML caption on the date-time zone
G2antt1->BeginUpdate();
Exg2anttlib_tlb::IChartPtr var_Chart = G2antt1->Chart;
var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2000,12,28).operator double()));
var_Chart->set_PaneWidth(false,48);
var_Chart->MarkTimeZone(TVariant("Z1"),TVariant(TDateTime(2001,1,1).operator double()),TVariant(TDateTime(2001,1,4).operator double()),TVariant(12895487),TVariant(";;zone <b>1</b>"));
var_Chart->MarkTimeZone(TVariant("Z2"),TVariant(TDateTime(2001,1,5).operator double()),TVariant(TDateTime(2001,1,8).operator double()),TVariant(12895487),TVariant(";;zone <b>2</b>"));
G2antt1->EndUpdate();
|
|
1162
|
How can I display the date-time zone using a semi-transparent EBN object
G2antt1->BeginUpdate();
G2antt1->VisualAppearance->Add(1,TVariant("c:\\exontrol\\images\\normal.ebn"));
G2antt1->Columns->Add(L"Task");
Exg2anttlib_tlb::IChartPtr var_Chart = G2antt1->Chart;
var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2000,12,28).operator double()));
var_Chart->set_PaneWidth(false,48);
var_Chart->AllowLinkBars = false;
var_Chart->AllowCreateBar = Exg2anttlib_tlb::CreateBarEnum::exNoCreateBar;
var_Chart->Bars->get_Item(TVariant("Task"))->Pattern = Exg2anttlib_tlb::PatternEnum::exPatternSolid;
var_Chart->MarkTimeZone(TVariant("Z1"),TVariant(TDateTime(2001,1,2).operator double()),TVariant(TDateTime(2001,1,3).operator double()),TVariant(16777056),TVariant(";;Solid"));
var_Chart->MarkTimeZone(TVariant("Z2"),TVariant(TDateTime(2001,1,7).operator double()),TVariant(TDateTime(2001,1,10).operator double()),TVariant(16777216),TVariant("50;;EBN"));
Exg2anttlib_tlb::IItemsPtr var_Items = G2antt1->Items;
long h1 = var_Items->AddItem(TVariant("Task 1"));
var_Items->AddBar(h1,TVariant("Task"),TVariant(TDateTime(2001,1,2).operator double()),TVariant(TDateTime(2001,1,4).operator double()),TVariant("K1"),TNoParam());
long h2 = var_Items->AddItem(TVariant("Task 2"));
var_Items->AddBar(h2,TVariant("Task"),TVariant(TDateTime(2001,1,5).operator double()),TVariant(TDateTime(2001,1,8).operator double()),TVariant("K2"),TNoParam());
var_Items->AddLink(TVariant("L1"),h1,TVariant("K1"),h2,TVariant("K2"));
G2antt1->EndUpdate();
|
|
1161
|
How can I display the date-time zone using an EBN or a skin instead a solid color
G2antt1->BeginUpdate();
G2antt1->VisualAppearance->Add(1,TVariant("c:\\exontrol\\images\\normal.ebn"));
G2antt1->Columns->Add(L"Task");
Exg2anttlib_tlb::IChartPtr var_Chart = G2antt1->Chart;
var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2000,12,28).operator double()));
var_Chart->set_PaneWidth(false,48);
var_Chart->AllowLinkBars = false;
var_Chart->AllowCreateBar = Exg2anttlib_tlb::CreateBarEnum::exNoCreateBar;
var_Chart->Bars->get_Item(TVariant("Task"))->Pattern = Exg2anttlib_tlb::PatternEnum::exPatternSolid;
var_Chart->MarkTimeZone(TVariant("Z1"),TVariant(TDateTime(2001,1,2).operator double()),TVariant(TDateTime(2001,1,3).operator double()),TVariant(16777056),TVariant(";;Solid"));
var_Chart->MarkTimeZone(TVariant("Z2"),TVariant(TDateTime(2001,1,5).operator double()),TVariant(TDateTime(2001,1,8).operator double()),TVariant(16777216),TVariant(";;EBN"));
Exg2anttlib_tlb::IItemsPtr var_Items = G2antt1->Items;
long h1 = var_Items->AddItem(TVariant("Task 1"));
var_Items->AddBar(h1,TVariant("Task"),TVariant(TDateTime(2001,1,2).operator double()),TVariant(TDateTime(2001,1,4).operator double()),TVariant("K1"),TNoParam());
long h2 = var_Items->AddItem(TVariant("Task 2"));
var_Items->AddBar(h2,TVariant("Task"),TVariant(TDateTime(2001,1,5).operator double()),TVariant(TDateTime(2001,1,8).operator double()),TVariant("K2"),TNoParam());
var_Items->AddLink(TVariant("L1"),h1,TVariant("K1"),h2,TVariant("K2"));
G2antt1->EndUpdate();
|
|
1160
|
How can I display the date-time zone using a pattern instead a solid color
G2antt1->BeginUpdate();
G2antt1->Columns->Add(L"Task");
Exg2anttlib_tlb::IChartPtr var_Chart = G2antt1->Chart;
var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2000,12,28).operator double()));
var_Chart->set_PaneWidth(false,48);
var_Chart->AllowLinkBars = false;
var_Chart->AllowCreateBar = Exg2anttlib_tlb::CreateBarEnum::exNoCreateBar;
var_Chart->Bars->get_Item(TVariant("Task"))->Pattern = Exg2anttlib_tlb::PatternEnum::exPatternSolid;
var_Chart->MarkTimeZone(TVariant("Z1"),TVariant(TDateTime(2001,1,2).operator double()),TVariant(TDateTime(2001,1,3).operator double()),TVariant(16777056),TVariant(";;Solid"));
var_Chart->MarkTimeZone(TVariant("Z2"),TVariant(TDateTime(2001,1,6).operator double()),TVariant(TDateTime(2001,1,7).operator double()),TVariant(16777056),TVariant(";12;Pattern"));
Exg2anttlib_tlb::IItemsPtr var_Items = G2antt1->Items;
long h1 = var_Items->AddItem(TVariant("Task 1"));
var_Items->AddBar(h1,TVariant("Task"),TVariant(TDateTime(2001,1,2).operator double()),TVariant(TDateTime(2001,1,4).operator double()),TVariant("K1"),TNoParam());
long h2 = var_Items->AddItem(TVariant("Task 2"));
var_Items->AddBar(h2,TVariant("Task"),TVariant(TDateTime(2001,1,5).operator double()),TVariant(TDateTime(2001,1,8).operator double()),TVariant("K2"),TNoParam());
var_Items->AddLink(TVariant("L1"),h1,TVariant("K1"),h2,TVariant("K2"));
G2antt1->EndUpdate();
|
|
1159
|
How can I display the date-time zone using a transparent color
G2antt1->BeginUpdate();
G2antt1->Columns->Add(L"Task");
Exg2anttlib_tlb::IChartPtr var_Chart = G2antt1->Chart;
var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2000,12,28).operator double()));
var_Chart->set_PaneWidth(false,48);
var_Chart->AllowLinkBars = false;
var_Chart->AllowCreateBar = Exg2anttlib_tlb::CreateBarEnum::exNoCreateBar;
var_Chart->Bars->get_Item(TVariant("Task"))->Pattern = Exg2anttlib_tlb::PatternEnum::exPatternSolid;
var_Chart->MarkTimeZone(TVariant("Z1"),TVariant(TDateTime(2001,1,2).operator double()),TVariant(TDateTime(2001,1,3).operator double()),TVariant(16777056),TVariant(";;Opaque"));
var_Chart->MarkTimeZone(TVariant("Z2"),TVariant(TDateTime(2001,1,6).operator double()),TVariant(TDateTime(2001,1,7).operator double()),TVariant(16777056),TVariant("50;;Semi-Transparent"));
Exg2anttlib_tlb::IItemsPtr var_Items = G2antt1->Items;
long h1 = var_Items->AddItem(TVariant("Task 1"));
var_Items->AddBar(h1,TVariant("Task"),TVariant(TDateTime(2001,1,2).operator double()),TVariant(TDateTime(2001,1,4).operator double()),TVariant("K1"),TNoParam());
long h2 = var_Items->AddItem(TVariant("Task 2"));
var_Items->AddBar(h2,TVariant("Task"),TVariant(TDateTime(2001,1,5).operator double()),TVariant(TDateTime(2001,1,8).operator double()),TVariant("K2"),TNoParam());
var_Items->AddLink(TVariant("L1"),h1,TVariant("K1"),h2,TVariant("K2"));
G2antt1->EndUpdate();
|
|
1158
|
The date time zone is shown behind the bars, is there any way to show it over
G2antt1->BeginUpdate();
G2antt1->Columns->Add(L"Task");
Exg2anttlib_tlb::IChartPtr var_Chart = G2antt1->Chart;
var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2000,12,28).operator double()));
var_Chart->set_PaneWidth(false,48);
var_Chart->AllowLinkBars = false;
var_Chart->AllowCreateBar = Exg2anttlib_tlb::CreateBarEnum::exNoCreateBar;
var_Chart->Bars->get_Item(TVariant("Task"))->Pattern = Exg2anttlib_tlb::PatternEnum::exPatternSolid;
var_Chart->MarkTimeZone(TVariant("Z1"),TVariant(TDateTime(2001,1,2).operator double()),TVariant(TDateTime(2001,1,3).operator double()),TVariant(16777056),TNoParam());
var_Chart->MarkTimeZone(TVariant("Z2"),TVariant(TDateTime(2001,1,6).operator double()),TVariant(TDateTime(2001,1,7).operator double()),TVariant(16777056),TVariant("1"));
Exg2anttlib_tlb::IItemsPtr var_Items = G2antt1->Items;
long h1 = var_Items->AddItem(TVariant("Task 1"));
var_Items->AddBar(h1,TVariant("Task"),TVariant(TDateTime(2001,1,2).operator double()),TVariant(TDateTime(2001,1,4).operator double()),TVariant("K1"),TNoParam());
long h2 = var_Items->AddItem(TVariant("Task 2"));
var_Items->AddBar(h2,TVariant("Task"),TVariant(TDateTime(2001,1,5).operator double()),TVariant(TDateTime(2001,1,8).operator double()),TVariant("K2"),TNoParam());
var_Items->AddLink(TVariant("L1"),h1,TVariant("K1"),h2,TVariant("K2"));
G2antt1->EndUpdate();
|
|
1157
|
How can I get ifnromation about a date-time zone
// MouseMove event - Occurs when the user moves the mouse.
void __fastcall TForm1::G2antt1MouseMove(TObject *Sender,short Button,short Shift,int X,int Y)
{
Exg2anttlib_tlb::IChartPtr var_Chart = G2antt1->Chart;
OutputDebugString( PChar(var_Chart->get_TimeZoneInfo(TVariant(var_Chart->get_TimeZoneFromPoint(-1,-1)))) );
}
Exg2anttlib_tlb::IChartPtr var_Chart = G2antt1->Chart;
var_Chart->set_PaneWidth(false,18);
var_Chart->LevelCount = 2;
var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2010,1,1).operator double()));
var_Chart->MarkTimeZone(TVariant("Z1"),TVariant(TDateTime(2010,1,4).operator double()),TVariant(TDateTime(2010,1,8).operator double()),TVariant(16744544),TNoParam());
var_Chart->MarkTimeZone(TVariant("Z2"),TVariant(TDateTime(2010,1,12).operator double()),TVariant(TDateTime(2010,1,18).operator double()),TVariant(16761952),TNoParam());
|
|
1156
|
How can I determine the zone from the cursor
// MouseMove event - Occurs when the user moves the mouse.
void __fastcall TForm1::G2antt1MouseMove(TObject *Sender,short Button,short Shift,int X,int Y)
{
Exg2anttlib_tlb::IChartPtr var_Chart = G2antt1->Chart;
OutputDebugString( PChar(var_Chart->get_TimeZoneFromPoint(-1,-1)) );
}
Exg2anttlib_tlb::IChartPtr var_Chart = G2antt1->Chart;
var_Chart->set_PaneWidth(false,18);
var_Chart->LevelCount = 2;
var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2010,1,1).operator double()));
var_Chart->MarkTimeZone(TVariant("Z1"),TVariant(TDateTime(2010,1,4).operator double()),TVariant(TDateTime(2010,1,8).operator double()),TVariant(16744544),TNoParam());
var_Chart->MarkTimeZone(TVariant("Z2"),TVariant(TDateTime(2010,1,12).operator double()),TVariant(TDateTime(2010,1,18).operator double()),TVariant(16761952),TNoParam());
|
|
1155
|
How can I highlight multiple date-time zones (ranges)
Exg2anttlib_tlb::IChartPtr var_Chart = G2antt1->Chart;
var_Chart->set_PaneWidth(false,18);
var_Chart->LevelCount = 2;
var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2010,1,1).operator double()));
var_Chart->MarkTimeZone(TVariant("Z1"),TVariant(TDateTime(2010,1,4).operator double()),TVariant(TDateTime(2010,1,8).operator double()),TVariant(16744544),TNoParam());
var_Chart->MarkTimeZone(TVariant("Z2"),TVariant(TDateTime(2010,1,12).operator double()),TVariant(TDateTime(2010,1,18).operator double()),TVariant(16761952),TNoParam());
|
|
1154
|
How can I highlight a date-time range
Exg2anttlib_tlb::IChartPtr var_Chart = G2antt1->Chart;
var_Chart->set_PaneWidth(false,18);
var_Chart->LevelCount = 2;
var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2010,1,1).operator double()));
var_Chart->MarkTimeZone(TVariant("Z1"),TVariant(TDateTime(2010,1,4).operator double()),TVariant(TDateTime(2010,1,8).operator double()),TVariant(16744544),TNoParam());
|
|
1153
|
How do I get the list of selected date
// ChartEndChanging event - Occurs after the chart has been changed.
void __fastcall TForm1::G2antt1ChartEndChanging(TObject *Sender,Exg2anttlib_tlb::BarOperationEnum Operation)
{
OutputDebugString( L"Operation" );
OutputDebugString( PChar(G2antt1->Chart->get_SelectDates()) );
}
Exg2anttlib_tlb::IChartPtr var_Chart = G2antt1->Chart;
var_Chart->LevelCount = 2;
var_Chart->set_PaneWidth(false,0);
var_Chart->MarkTodayColor = var_Chart->BackColor;
|
|
1152
|
Is there any function I can use to find the bars that intersect with the current bar
// BarResizing event - Occurs when a bar is moving or resizing.
void __fastcall TForm1::G2antt1BarResizing(TObject *Sender,Exg2anttlib_tlb::HITEM Item,Variant Key)
{
Exg2anttlib_tlb::IItemsPtr var_Items = G2antt1->Items;
OutputDebugString( L"Key" );
OutputDebugString( L"intesect with" );
OutputDebugString( PChar(var_Items->get_ItemBar(Item,TVariant(Key),Exg2anttlib_tlb::ItemBarPropertyEnum::exBarIntersectWithAsString)) );
}
G2antt1->BeginUpdate();
G2antt1->DefaultItemHeight = 22;
G2antt1->Columns->Add(L"Task");
G2antt1->ScrollBySingleLine = true;
G2antt1->DrawGridLines = Exg2anttlib_tlb::GridLinesEnum::exAllLines;
Exg2anttlib_tlb::IChartPtr var_Chart = G2antt1->Chart;
var_Chart->DrawGridLines = Exg2anttlib_tlb::GridLinesEnum::exAllLines;
var_Chart->set_PaneWidth(false,48);
var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2000,12,28).operator double()));
var_Chart->LevelCount = 2;
var_Chart->Bars->get_Item(TVariant("Task"))->OverlaidType = Exg2anttlib_tlb::OverlaidBarsTypeEnum::exOverlaidBarsOffset;
var_Chart->ResizeUnitScale = Exg2anttlib_tlb::UnitEnum::exHour;
var_Chart->AllowCreateBar = Exg2anttlib_tlb::CreateBarEnum::exCreateBarAuto;
Exg2anttlib_tlb::IItemsPtr var_Items = G2antt1->Items;
long h1 = var_Items->AddItem(TVariant("Default"));
var_Items->AddBar(h1,TVariant("Task"),TVariant(TDateTime(2001,1,2).operator double()),TVariant(TDateTime(2001,1,4).operator double()),TVariant("A1"),TVariant("A1"));
var_Items->AddBar(h1,TVariant("Task"),TVariant(TDateTime(2001,1,3).operator double()),TVariant(TDateTime(2001,1,5).operator double()),TVariant("A2"),TVariant("A2"));
var_Items->AddBar(h1,TVariant("Task"),TVariant(TDateTime(2001,1,4).operator double()),TVariant(TDateTime(2001,1,7).operator double()),TVariant("A3"),TVariant("A3"));
G2antt1->EndUpdate();
|
|
1151
|
Is it possible to order the bars on top of other bars
G2antt1->BeginUpdate();
G2antt1->DefaultItemHeight = 22;
G2antt1->Columns->Add(L"Task");
G2antt1->ScrollBySingleLine = true;
G2antt1->DrawGridLines = Exg2anttlib_tlb::GridLinesEnum::exAllLines;
Exg2anttlib_tlb::IChartPtr var_Chart = G2antt1->Chart;
var_Chart->DrawGridLines = Exg2anttlib_tlb::GridLinesEnum::exAllLines;
var_Chart->set_PaneWidth(false,48);
var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2000,12,28).operator double()));
var_Chart->LevelCount = 2;
var_Chart->Bars->Copy(L"Task",L"NTask")->OverlaidType = Exg2anttlib_tlb::OverlaidBarsTypeEnum::exOverlaidBarsOffset;
Exg2anttlib_tlb::IItemsPtr var_Items = G2antt1->Items;
long h1 = var_Items->AddItem(TVariant("Default"));
var_Items->AddBar(h1,TVariant("Task"),TVariant(TDateTime(2001,1,2).operator double()),TVariant(TDateTime(2001,1,4).operator double()),TVariant("A1"),TNoParam());
var_Items->AddBar(h1,TVariant("Task"),TVariant(TDateTime(2001,1,3).operator double()),TVariant(TDateTime(2001,1,5).operator double()),TVariant("A2"),TNoParam());
var_Items->AddBar(h1,TVariant("Task"),TVariant(TDateTime(2001,1,4).operator double()),TVariant(TDateTime(2001,1,7).operator double()),TVariant("A3"),TNoParam());
long h2 = var_Items->AddItem(TVariant("Overlaid"));
var_Items->AddBar(h2,TVariant("NTask"),TVariant(TDateTime(2001,1,2).operator double()),TVariant(TDateTime(2001,1,4).operator double()),TVariant("A1"),TNoParam());
var_Items->AddBar(h2,TVariant("NTask"),TVariant(TDateTime(2001,1,3).operator double()),TVariant(TDateTime(2001,1,5).operator double()),TVariant("A2"),TNoParam());
var_Items->AddBar(h2,TVariant("NTask"),TVariant(TDateTime(2001,1,4).operator double()),TVariant(TDateTime(2001,1,7).operator double()),TVariant("A3"),TNoParam());
var_Items->GroupBars(h1,TVariant("A1"),true,h2,TVariant("A1"),true,TNoParam(),TNoParam());
var_Items->GroupBars(h1,TVariant("A1"),false,h2,TVariant("A1"),false,TNoParam(),TNoParam());
var_Items->GroupBars(h1,TVariant("A2"),true,h2,TVariant("A2"),true,TNoParam(),TNoParam());
var_Items->GroupBars(h1,TVariant("A2"),false,h2,TVariant("A2"),false,TNoParam(),TNoParam());
var_Items->GroupBars(h1,TVariant("A3"),true,h2,TVariant("A3"),true,TNoParam(),TNoParam());
var_Items->GroupBars(h1,TVariant("A3"),false,h2,TVariant("A3"),false,TNoParam(),TNoParam());
G2antt1->EndUpdate();
|
|
1150
|
Is it possible to order the bars on top of other bars (have different colurs so that they can be seen)
G2antt1->BeginUpdate();
G2antt1->DefaultItemHeight = 22;
G2antt1->Columns->Add(L"Task");
G2antt1->ScrollBySingleLine = true;
G2antt1->DrawGridLines = Exg2anttlib_tlb::GridLinesEnum::exAllLines;
Exg2anttlib_tlb::IChartPtr var_Chart = G2antt1->Chart;
var_Chart->DrawGridLines = Exg2anttlib_tlb::GridLinesEnum::exAllLines;
var_Chart->set_PaneWidth(false,48);
var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2000,12,28).operator double()));
var_Chart->LevelCount = 2;
var_Chart->Bars->Copy(L"Task",L"NTask")->OverlaidType = Exg2anttlib_tlb::OverlaidBarsTypeEnum::exOverlaidBarsStackAutoArrange | Exg2anttlib_tlb::OverlaidBarsTypeEnum::exOverlaidBarsStack;
Exg2anttlib_tlb::IItemsPtr var_Items = G2antt1->Items;
long h1 = var_Items->AddItem(TVariant("Default"));
var_Items->AddBar(h1,TVariant("Task"),TVariant(TDateTime(2001,1,2).operator double()),TVariant(TDateTime(2001,1,4).operator double()),TVariant("A1"),TNoParam());
var_Items->AddBar(h1,TVariant("Task"),TVariant(TDateTime(2001,1,3).operator double()),TVariant(TDateTime(2001,1,5).operator double()),TVariant("A2"),TNoParam());
var_Items->AddBar(h1,TVariant("Task"),TVariant(TDateTime(2001,1,4).operator double()),TVariant(TDateTime(2001,1,7).operator double()),TVariant("A3"),TNoParam());
long h2 = var_Items->AddItem(TVariant("Overlaid"));
var_Items->AddBar(h2,TVariant("NTask"),TVariant(TDateTime(2001,1,2).operator double()),TVariant(TDateTime(2001,1,4).operator double()),TVariant("A1"),TNoParam());
var_Items->AddBar(h2,TVariant("NTask"),TVariant(TDateTime(2001,1,3).operator double()),TVariant(TDateTime(2001,1,5).operator double()),TVariant("A2"),TNoParam());
var_Items->AddBar(h2,TVariant("NTask"),TVariant(TDateTime(2001,1,4).operator double()),TVariant(TDateTime(2001,1,7).operator double()),TVariant("A3"),TNoParam());
var_Items->GroupBars(h1,TVariant("A1"),true,h2,TVariant("A1"),true,TNoParam(),TNoParam());
var_Items->GroupBars(h1,TVariant("A1"),false,h2,TVariant("A1"),false,TNoParam(),TNoParam());
var_Items->GroupBars(h1,TVariant("A2"),true,h2,TVariant("A2"),true,TNoParam(),TNoParam());
var_Items->GroupBars(h1,TVariant("A2"),false,h2,TVariant("A2"),false,TNoParam(),TNoParam());
var_Items->GroupBars(h1,TVariant("A3"),true,h2,TVariant("A3"),true,TNoParam(),TNoParam());
var_Items->GroupBars(h1,TVariant("A3"),false,h2,TVariant("A3"),false,TNoParam(),TNoParam());
G2antt1->EndUpdate();
|
|
1149
|
Is it possible to layer bars on top of other bars (have different colurs so that they can be seen)
G2antt1->BeginUpdate();
G2antt1->DefaultItemHeight = 22;
G2antt1->Columns->Add(L"Task");
Exg2anttlib_tlb::IChartPtr var_Chart = G2antt1->Chart;
var_Chart->set_PaneWidth(false,48);
var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2000,12,28).operator double()));
var_Chart->LevelCount = 2;
var_Chart->Bars->Copy(L"Task",L"NTask")->OverlaidType = Exg2anttlib_tlb::OverlaidBarsTypeEnum::exOverlaidBarsOffset;
Exg2anttlib_tlb::IItemsPtr var_Items = G2antt1->Items;
long h1 = var_Items->AddItem(TVariant("Default"));
var_Items->AddBar(h1,TVariant("Task"),TVariant(TDateTime(2001,1,2).operator double()),TVariant(TDateTime(2001,1,4).operator double()),TVariant("A1"),TNoParam());
var_Items->AddBar(h1,TVariant("Task"),TVariant(TDateTime(2001,1,3).operator double()),TVariant(TDateTime(2001,1,5).operator double()),TVariant("A2"),TNoParam());
var_Items->AddBar(h1,TVariant("Task"),TVariant(TDateTime(2001,1,4).operator double()),TVariant(TDateTime(2001,1,7).operator double()),TVariant("A3"),TNoParam());
long h2 = var_Items->AddItem(TVariant("Overlaid"));
var_Items->AddBar(h2,TVariant("NTask"),TVariant(TDateTime(2001,1,2).operator double()),TVariant(TDateTime(2001,1,4).operator double()),TVariant("A1"),TNoParam());
var_Items->AddBar(h2,TVariant("NTask"),TVariant(TDateTime(2001,1,3).operator double()),TVariant(TDateTime(2001,1,5).operator double()),TVariant("A2"),TNoParam());
var_Items->AddBar(h2,TVariant("NTask"),TVariant(TDateTime(2001,1,4).operator double()),TVariant(TDateTime(2001,1,7).operator double()),TVariant("A3"),TNoParam());
var_Items->GroupBars(h1,TVariant("A1"),true,h2,TVariant("A1"),true,TNoParam(),TNoParam());
var_Items->GroupBars(h1,TVariant("A1"),false,h2,TVariant("A1"),false,TNoParam(),TNoParam());
var_Items->GroupBars(h1,TVariant("A2"),true,h2,TVariant("A2"),true,TNoParam(),TNoParam());
var_Items->GroupBars(h1,TVariant("A2"),false,h2,TVariant("A2"),false,TNoParam(),TNoParam());
var_Items->GroupBars(h1,TVariant("A3"),true,h2,TVariant("A3"),true,TNoParam(),TNoParam());
var_Items->GroupBars(h1,TVariant("A3"),false,h2,TVariant("A3"),false,TNoParam(),TNoParam());
G2antt1->EndUpdate();
|
|
1148
|
My skin(EBN) bars are not shown a different color in the overview. What can I do
G2antt1->BeginUpdate();
G2antt1->VisualAppearance->Add(1,TVariant("c:\\exontrol\\images\\normal.ebn"));
Exg2anttlib_tlb::IChartPtr var_Chart = G2antt1->Chart;
var_Chart->Bars->get_Item(TVariant("Task"))->Color = 0x1000000;
var_Chart->set_PaneWidth(false,48);
var_Chart->OverviewVisible = Exg2anttlib_tlb::OverviewVisibleEnum::exOverviewShowAllVisible;
var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2001,1,11).operator double()));
var_Chart->LevelCount = 2;
G2antt1->Columns->Add(L"Column");
Exg2anttlib_tlb::IItemsPtr var_Items = G2antt1->Items;
long h = var_Items->AddItem(TVariant("Task 1"));
var_Items->AddBar(h,TVariant("Task"),TVariant(TDateTime(2001,1,2).operator double()),TVariant(TDateTime(2001,1,4).operator double()),TVariant(1),TNoParam());
var_Items->AddBar(h,TVariant("Task"),TVariant(TDateTime(2001,2,2).operator double()),TVariant(TDateTime(2001,2,4).operator double()),TVariant(2),TNoParam());
var_Items->set_ItemBar(h,TVariant(2),Exg2anttlib_tlb::ItemBarPropertyEnum::exBarColor,TVariant(16776960));
h = var_Items->AddItem(TVariant("Task 2"));
var_Items->AddBar(h,TVariant("Task"),TVariant(TDateTime(2001,2,2).operator double()),TVariant(TDateTime(2001,2,4).operator double()),TVariant(""),TNoParam());
var_Items->set_ItemBar(h,TVariant(""),Exg2anttlib_tlb::ItemBarPropertyEnum::exBarColor,TVariant(255));
G2antt1->EndUpdate();
|
|
1147
|
How do I colour the lines in the overview section to match the bars they represent on the main chart
G2antt1->BeginUpdate();
Exg2anttlib_tlb::IChartPtr var_Chart = G2antt1->Chart;
var_Chart->set_PaneWidth(false,48);
var_Chart->OverviewVisible = Exg2anttlib_tlb::OverviewVisibleEnum::exOverviewShowAllVisible;
var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2001,1,1).operator double()));
var_Chart->LevelCount = 2;
G2antt1->Columns->Add(L"Column");
Exg2anttlib_tlb::IItemsPtr var_Items = G2antt1->Items;
long h = var_Items->AddItem(TVariant("Task 1"));
var_Items->AddBar(h,TVariant("Task"),TVariant(TDateTime(2001,1,2).operator double()),TVariant(TDateTime(2001,1,4).operator double()),TVariant(1),TNoParam());
var_Items->AddBar(h,TVariant("Task"),TVariant(TDateTime(2001,2,2).operator double()),TVariant(TDateTime(2001,2,4).operator double()),TVariant(2),TNoParam());
h = var_Items->AddItem(TVariant("Task 2"));
var_Items->AddBar(h,TVariant("Task"),TVariant(TDateTime(2001,2,2).operator double()),TVariant(TDateTime(2001,2,4).operator double()),TVariant(""),TNoParam());
var_Items->set_ItemBar(h,TVariant(""),Exg2anttlib_tlb::ItemBarPropertyEnum::exBarColor,TVariant(255));
G2antt1->EndUpdate();
|
|
1146
|
How do I catch the delete key (down) on a bar
// KeyDown event - Occurs when the user presses a key while an object has the focus.
void __fastcall TForm1::G2antt1KeyDown(TObject *Sender,short * KeyCode,short Shift)
{
OutputDebugString( L"KeyCode" );
OutputDebugString( L"Shift" );
}
G2antt1->BeginUpdate();
G2antt1->Columns->Add(L"Task");
Exg2anttlib_tlb::IChartPtr var_Chart = G2antt1->Chart;
var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2000,12,27).operator double()));
var_Chart->LevelCount = 2;
var_Chart->set_PaneWidth(false,48);
Exg2anttlib_tlb::IBarPtr var_Bar = var_Chart->Bars->get_Item(TVariant("Task"));
var_Bar->Pattern = Exg2anttlib_tlb::PatternEnum::exPatternBox;
var_Bar->Height = 13;
Exg2anttlib_tlb::IItemsPtr var_Items = G2antt1->Items;
long h = var_Items->AddItem(TVariant("Task 1"));
var_Items->AddBar(h,TVariant("Task"),TVariant(TDateTime(2001,1,2).operator double()),TVariant(TDateTime(2001,1,6).operator double()),TVariant("K1"),TVariant("This is a bit of text that is not clipped"));
h = var_Items->AddItem(TVariant("Task 1"));
var_Items->AddBar(h,TVariant("Task"),TVariant(TDateTime(2001,1,2).operator double()),TVariant(TDateTime(2001,1,6).operator double()),TVariant("K1"),TVariant("This is a bit of text that get's clipped"));
var_Items->set_ItemBar(h,TVariant("K1"),Exg2anttlib_tlb::ItemBarPropertyEnum::exBarHAlignCaption,TVariant(3));
var_Items->set_ItemBar(h,TVariant("K1"),Exg2anttlib_tlb::ItemBarPropertyEnum::exBarToolTip,TVariant(var_Items->get_ItemBar(h,TVariant("K1"),Exg2anttlib_tlb::ItemBarPropertyEnum::exBarCaption)));
G2antt1->EndUpdate();
|
|
1145
|
Is it possible to colour a particular column, I mean the cell's foreground color
G2antt1->BeginUpdate();
Exg2anttlib_tlb::IConditionalFormatPtr var_ConditionalFormat = G2antt1->ConditionalFormats->Add(L"1",TNoParam());
var_ConditionalFormat->ForeColor = RGB(255,0,0);
var_ConditionalFormat->ApplyTo = Exg2anttlib_tlb::FormatApplyToEnum(0x1);
G2antt1->MarkSearchColumn = false;
Exg2anttlib_tlb::IColumnsPtr var_Columns = G2antt1->Columns;
var_Columns->Add(L"Column 1");
var_Columns->Add(L"Column 2");
Exg2anttlib_tlb::IItemsPtr var_Items = G2antt1->Items;
var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant(0))),TVariant(1),TVariant(1));
var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant(2))),TVariant(1),TVariant(3));
var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant(4))),TVariant(1),TVariant(5));
G2antt1->EndUpdate();
|
|
1144
|
Is it possible to colour a particular column for specified values
G2antt1->BeginUpdate();
Exg2anttlib_tlb::IConditionalFormatPtr var_ConditionalFormat = G2antt1->ConditionalFormats->Add(L"int(%1) in (3,4,5)",TNoParam());
var_ConditionalFormat->BackColor = RGB(255,0,0);
var_ConditionalFormat->ApplyTo = Exg2anttlib_tlb::FormatApplyToEnum(0x1);
G2antt1->MarkSearchColumn = false;
Exg2anttlib_tlb::IColumnsPtr var_Columns = G2antt1->Columns;
var_Columns->Add(L"Column 1");
var_Columns->Add(L"Column 2");
Exg2anttlib_tlb::IItemsPtr var_Items = G2antt1->Items;
var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant(0))),TVariant(1),TVariant(1));
var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant(2))),TVariant(1),TVariant(3));
var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant(4))),TVariant(1),TVariant(5));
G2antt1->EndUpdate();
|
|
1143
|
Is it possible to colour a particular column
G2antt1->BeginUpdate();
G2antt1->MarkSearchColumn = false;
Exg2anttlib_tlb::IColumnsPtr var_Columns = G2antt1->Columns;
var_Columns->Add(L"Column 1");
var_Columns->Add(L"Column 2")->set_Def(Exg2anttlib_tlb::DefColumnEnum::exCellBackColor,TVariant(255));
Exg2anttlib_tlb::IItemsPtr var_Items = G2antt1->Items;
var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant(0))),TVariant(1),TVariant(1));
var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant(2))),TVariant(1),TVariant(3));
var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant(4))),TVariant(1),TVariant(5));
G2antt1->EndUpdate();
|
|
1142
|
How do i get all the children items that are under a certain parent Item handle
G2antt1->BeginUpdate();
G2antt1->LinesAtRoot = Exg2anttlib_tlb::LinesAtRootEnum::exLinesAtRoot;
G2antt1->Columns->Add(L"P");
Exg2anttlib_tlb::IItemsPtr var_Items = G2antt1->Items;
long h = var_Items->AddItem(TVariant("Root"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
var_Items->set_ExpandItem(h,true);
Exg2anttlib_tlb::IItemsPtr var_Items1 = G2antt1->Items;
long hChild = var_Items1->get_ItemChild(var_Items1->FirstVisibleItem);
OutputDebugString( PChar(var_Items1->get_CellValue(TVariant(hChild),TVariant(0))) );
OutputDebugString( PChar(var_Items1->get_CellValue(TVariant(var_Items1->get_NextSiblingItem(hChild)),TVariant(0))) );
G2antt1->EndUpdate();
|
|
1141
|
How can I access the control's scroll bar so I can change its appearance
G2antt1->BeginUpdate();
G2antt1->Chart->set_PaneWidth(false,0);
G2antt1->VisualAppearance->Add(1,TVariant("c:\\exontrol\\images\\normal.ebn"));
G2antt1->Background[Exg2anttlib_tlb::BackgroundPartEnum::exHSThumb] = 0x1000000;
G2antt1->EndUpdate();
|
|
1140
|
How can I show my bars using the parts of the current theme
G2antt1->BeginUpdate();
Exg2anttlib_tlb::IAppearancePtr var_Appearance = G2antt1->VisualAppearance;
var_Appearance->Add(1,TVariant("XP:Button 1 1"));
var_Appearance->Add(2,TVariant("XP:Button 1 2"));
var_Appearance->Add(3,TVariant("XP:ScrollBar 3 1"));
var_Appearance->Add(4,TVariant("XP:ScrollBar 3 2"));
Exg2anttlib_tlb::IChartPtr var_Chart = G2antt1->Chart;
var_Chart->set_PaneWidth(false,48);
var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2001,1,1).operator double()));
Exg2anttlib_tlb::IBarsPtr var_Bars = var_Chart->Bars;
var_Bars->Add(L"B1")->Color = 0x1000000;
var_Bars->Add(L"B2")->Color = 0x2000000;
var_Bars->Add(L"S1")->Color = 0x3000000;
var_Bars->Add(L"S2")->Color = 0x4000000;
G2antt1->Columns->Add(L"Column");
Exg2anttlib_tlb::IItemsPtr var_Items = G2antt1->Items;
var_Items->AddBar(var_Items->AddItem(TVariant("Button1")),TVariant("B1"),TVariant(TDateTime(2001,1,2).operator double()),TVariant(TDateTime(2001,1,4).operator double()),TNoParam(),TNoParam());
var_Items->AddBar(var_Items->AddItem(TVariant("Button 2")),TVariant("B2"),TVariant(TDateTime(2001,1,2).operator double()),TVariant(TDateTime(2001,1,4).operator double()),TNoParam(),TNoParam());
var_Items->AddBar(var_Items->AddItem(TVariant("Scrollbar 1")),TVariant("S1"),TVariant(TDateTime(2001,1,2).operator double()),TVariant(TDateTime(2001,1,4).operator double()),TNoParam(),TNoParam());
var_Items->AddBar(var_Items->AddItem(TVariant("Scrollbar 2")),TVariant("S2"),TVariant(TDateTime(2001,1,2).operator double()),TVariant(TDateTime(2001,1,4).operator double()),TNoParam(),TNoParam());
G2antt1->EndUpdate();
|
|
1139
|
How do I hide the text on a bar if the text is to big for the bar length
G2antt1->Columns->Add(L"Task");
Exg2anttlib_tlb::IChartPtr var_Chart = G2antt1->Chart;
var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2000,12,27).operator double()));
var_Chart->LevelCount = 2;
var_Chart->set_PaneWidth(false,48);
Exg2anttlib_tlb::IBarPtr var_Bar = var_Chart->Bars->get_Item(TVariant("Task"));
var_Bar->Pattern = Exg2anttlib_tlb::PatternEnum::exPatternBox;
var_Bar->Height = 13;
Exg2anttlib_tlb::IItemsPtr var_Items = G2antt1->Items;
long h = var_Items->AddItem(TVariant("Task 1"));
var_Items->AddBar(h,TVariant("Task"),TVariant(TDateTime(2001,1,2).operator double()),TVariant(TDateTime(2001,1,6).operator double()),TVariant("K1"),TVariant("This is a bit of text that is not clipped"));
h = var_Items->AddItem(TVariant("Task 1"));
var_Items->AddBar(h,TVariant("Task"),TVariant(TDateTime(2001,1,2).operator double()),TVariant(TDateTime(2001,1,6).operator double()),TVariant("K1"),TVariant("This is a bit of text that get's clipped"));
var_Items->set_ItemBar(h,TVariant("K1"),Exg2anttlib_tlb::ItemBarPropertyEnum::exBarHAlignCaption,TVariant(3));
var_Items->set_ItemBar(h,TVariant("K1"),Exg2anttlib_tlb::ItemBarPropertyEnum::exBarToolTip,TVariant(var_Items->get_ItemBar(h,TVariant("K1"),Exg2anttlib_tlb::ItemBarPropertyEnum::exBarCaption)));
|
|
1138
|
Is it possible to change the color for non-working parts of the bar
G2antt1->BeginUpdate();
G2antt1->Columns->Add(L"Task");
Exg2anttlib_tlb::IChartPtr var_Chart = G2antt1->Chart;
var_Chart->LevelCount = 2;
var_Chart->set_PaneWidth(false,48);
var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2001,1,1).operator double()));
var_Chart->Bars->Add(L"Task:Split")->Shortcut = L"Task";
var_Chart->NonworkingDaysColor = RGB(240,250,240);
Exg2anttlib_tlb::IItemsPtr var_Items = G2antt1->Items;
var_Items->AddBar(var_Items->AddItem(TVariant("Task 1")),TVariant("Task"),TVariant(TDateTime(2001,1,2).operator double()),TVariant(TDateTime(2001,1,16).operator double()),TNoParam(),TNoParam());
long h = var_Items->AddItem(TVariant("Task 2"));
var_Items->AddBar(h,TVariant("Task"),TVariant(TDateTime(2001,1,2).operator double()),TVariant(TDateTime(2001,1,16).operator double()),TVariant(""),TNoParam());
var_Items->set_ItemBar(h,TVariant(""),Exg2anttlib_tlb::ItemBarPropertyEnum::exBarNonWorkingColor,TVariant(65280));
G2antt1->EndUpdate();
|
|
1137
|
Is it possible to change the color for the percent bar being displayed inside a specified bar only
G2antt1->Columns->Add(L"Task");
G2antt1->Chart->set_FirstVisibleDate(TVariant(TDateTime(2001,1,1).operator double()));
G2antt1->Chart->Bars->Add(L"Task%Progress");
G2antt1->Chart->set_PaneWidth(false,48);
Exg2anttlib_tlb::IItemsPtr var_Items = G2antt1->Items;
long h = var_Items->AddItem(TVariant("Task 1"));
var_Items->AddBar(h,TVariant("Task%Progress"),TVariant(TDateTime(2001,1,2).operator double()),TVariant(TDateTime(2001,1,6).operator double()),TVariant("K1"),TNoParam());
var_Items->set_ItemBar(h,TVariant("K1"),Exg2anttlib_tlb::ItemBarPropertyEnum::exBarPercent,TVariant(0.4));
h = var_Items->AddItem(TVariant("Task 2"));
var_Items->AddBar(h,TVariant("Task%Progress"),TVariant(TDateTime(2001,1,2).operator double()),TVariant(TDateTime(2001,1,6).operator double()),TVariant("K1"),TNoParam());
var_Items->set_ItemBar(h,TVariant("K1"),Exg2anttlib_tlb::ItemBarPropertyEnum::exBarPercent,TVariant(0.5));
var_Items->set_ItemBar(h,TVariant("K1"),Exg2anttlib_tlb::ItemBarPropertyEnum::exBarPercentColor,TVariant(255));
|
|
1136
|
How do I get a handle on the item before adding the bar
G2antt1->BeginUpdate();
G2antt1->MarkSearchColumn = false;
G2antt1->OnResizeControl = Exg2anttlib_tlb::OnResizeControlEnum::exResizeChart;
G2antt1->Columns->Add(L"Tasks");
G2antt1->Columns->Add(L"Start")->Visible = false;
G2antt1->Columns->Add(L"End")->Visible = false;
Exg2anttlib_tlb::IChartPtr var_Chart = G2antt1->Chart;
var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2006,9,20).operator double()));
var_Chart->set_PaneWidth(false,64);
var_Chart->LevelCount = 2;
Exg2anttlib_tlb::IItemsPtr var_Items = G2antt1->Items;
long h1 = var_Items->AddItem(TVariant("Task 0"));
var_Items->set_CellValue(TVariant(h1),TVariant(1),TVariant(TDateTime(2006,9,21).operator double()));
var_Items->set_CellValue(TVariant(h1),TVariant(2),TVariant(TDateTime(2006,9,24).operator double()));
var_Items->AddBar(h1,TVariant("Task"),TVariant(var_Items->get_CellValue(TVariant(h1),TVariant(1))),TVariant(var_Items->get_CellValue(TVariant(h1),TVariant(2))),TNoParam(),TNoParam());
long h2 = var_Items->InsertItem(h,TNoParam(),TVariant("Task 1"));
var_Items->set_CellValue(TVariant(h2),TVariant(1),TVariant(TDateTime(2006,9,25).operator double()));
var_Items->set_CellValue(TVariant(h2),TVariant(2),TVariant(TDateTime(2006,9,28).operator double()));
var_Items->AddBar(h2,TVariant("Task"),TVariant(var_Items->get_CellValue(TVariant(h2),TVariant(1))),TVariant(var_Items->get_CellValue(TVariant(h2),TVariant(2))),TNoParam(),TNoParam());
long h3 = var_Items->InsertItem(h,TNoParam(),TVariant("Task 2"));
var_Items->set_CellValue(TVariant(h3),TVariant(1),TVariant(TDateTime(2006,9,29).operator double()));
var_Items->set_CellValue(TVariant(h3),TVariant(2),TVariant(TDateTime(2006,10,2).operator double()));
var_Items->AddBar(h3,TVariant("Task"),TVariant(var_Items->get_CellValue(TVariant(h3),TVariant(1))),TVariant(var_Items->get_CellValue(TVariant(h3),TVariant(2))),TNoParam(),TNoParam());
var_Items->AddItem(TVariant(var_Items->ItemCount));
G2antt1->EndUpdate();
|
|
1135
|
Is there an Items method that I can use to loop around to compare the item's user data against
G2antt1->Columns->Add(L"Default");
Exg2anttlib_tlb::IItemsPtr var_Items = G2antt1->Items;
long h = var_Items->AddItem(TVariant("Root 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->set_ItemData(var_Items->InsertItem(h,TNoParam(),TVariant("Child 2")),TVariant(1234));
var_Items->set_ExpandItem(h,true);
var_Items->set_ItemBold(var_Items->get_FindItemData(TVariant(1234),TNoParam()),true);
|
|
1134
|
How do I make the tooltip box wider to allow for longer text
G2antt1->ToolTipWidth = 328;
G2antt1->Columns->Add(L"Task");
Exg2anttlib_tlb::IChartPtr var_Chart = G2antt1->Chart;
var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2001,1,1).operator double()));
var_Chart->set_PaneWidth(false,48);
Exg2anttlib_tlb::IItemsPtr var_Items = G2antt1->Items;
long h = var_Items->AddItem(TVariant("Task 1"));
var_Items->AddBar(h,TVariant("Task"),TVariant(TDateTime(2001,1,2).operator double()),TVariant(TDateTime(2001,1,4).operator double()),TVariant("K1"),TNoParam());
var_Items->set_ItemBar(h,TVariant("K1"),Exg2anttlib_tlb::ItemBarPropertyEnum::exBarToolTip,TVariant("This is a bit of text that's displayed when the cursor hovers the bar"));
|
|
1133
|
How do i set the default timeslots to say hours or minutes
G2antt1->BeginUpdate();
Exg2anttlib_tlb::IChartPtr var_Chart = G2antt1->Chart;
var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2001,1,1).operator double()));
var_Chart->set_PaneWidth(false,48);
var_Chart->OverviewVisible = Exg2anttlib_tlb::OverviewVisibleEnum::exOverviewShowAllVisible;
var_Chart->LevelCount = 2;
var_Chart->AllowOverviewZoom = Exg2anttlib_tlb::OverviewZoomEnum::exAlwaysZoom;
var_Chart->OverviewZoomUnit = 24;
var_Chart->OverviewZoomCaption = L"Y|½Y|¼Y|Mo|T|W|D|H|Mi|S";
var_Chart->UnitScale = Exg2anttlib_tlb::UnitEnum::exMinute;
G2antt1->Columns->Add(L"Column");
Exg2anttlib_tlb::IItemsPtr var_Items = G2antt1->Items;
var_Items->AddBar(var_Items->AddItem(TVariant("Item 1")),TVariant("Task"),TVariant(TDateTime(2001,1,2).operator double()),TVariant(TDateTime(2001,1,4).operator double()),TNoParam(),TNoParam());
var_Items->AddBar(var_Items->AddItem(TVariant("Item 2")),TVariant("Task"),TVariant(TDateTime(2001,1,16).operator double()),TVariant(TDateTime(2001,1,25).operator double()),TNoParam(),TNoParam());
var_Items->AddBar(var_Items->AddItem(TVariant("Item 3")),TVariant("Task"),TVariant(TDateTime(2001,1,2).operator double()),TVariant(TDateTime(2001,1,4).operator double()),TNoParam(),TNoParam());
var_Items->AddBar(var_Items->AddItem(TVariant("Item 4")),TVariant("Task"),TVariant(TDateTime(2001,2,16).operator double()),TVariant(TDateTime(2001,2,25).operator double()),TNoParam(),TNoParam());
G2antt1->EndUpdate();
|
|
1132
|
Can I use icons or images in the text in the overview zoom buttons (Sec., Min., Hour, Month...)
G2antt1->BeginUpdate();
G2antt1->HTMLPicture[L"pic1"] = TVariant("c:\\exontrol\\images\\zipdisk.gif");
Exg2anttlib_tlb::IChartPtr var_Chart = G2antt1->Chart;
var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2001,1,1).operator double()));
var_Chart->set_PaneWidth(false,48);
var_Chart->OverviewVisible = Exg2anttlib_tlb::OverviewVisibleEnum::exOverviewShowAllVisible;
var_Chart->LevelCount = 2;
var_Chart->AllowOverviewZoom = Exg2anttlib_tlb::OverviewZoomEnum::exAlwaysZoom;
var_Chart->OverviewZoomUnit = 24;
var_Chart->OverviewHeight = 58;
var_Chart->OverviewZoomCaption = L"Y<br>e<br>a<br>r|½Y|¼Y|M<br>o<br>n<br>t<br>h|T|W<br>e<br>e<br>w|<img>pic1:28<img>|H<br>o<br>u<br>r|M<br>i<br>n|S<br>e<br>c";
G2antt1->Columns->Add(L"Column");
Exg2anttlib_tlb::IItemsPtr var_Items = G2antt1->Items;
var_Items->AddBar(var_Items->AddItem(TVariant("Item 1")),TVariant("Task"),TVariant(TDateTime(2001,1,2).operator double()),TVariant(TDateTime(2001,1,4).operator double()),TNoParam(),TNoParam());
var_Items->AddBar(var_Items->AddItem(TVariant("Item 2")),TVariant("Task"),TVariant(TDateTime(2001,1,16).operator double()),TVariant(TDateTime(2001,1,25).operator double()),TNoParam(),TNoParam());
var_Items->AddBar(var_Items->AddItem(TVariant("Item 3")),TVariant("Task"),TVariant(TDateTime(2001,1,2).operator double()),TVariant(TDateTime(2001,1,4).operator double()),TNoParam(),TNoParam());
var_Items->AddBar(var_Items->AddItem(TVariant("Item 4")),TVariant("Task"),TVariant(TDateTime(2001,2,16).operator double()),TVariant(TDateTime(2001,2,25).operator double()),TNoParam(),TNoParam());
G2antt1->EndUpdate();
|
|
1131
|
Can I use icons or images in the text in the overview zoom buttons (Sec., Min., Hour, Month...)
G2antt1->BeginUpdate();
G2antt1->Images(TVariant(String("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq") +
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="));
Exg2anttlib_tlb::IChartPtr var_Chart = G2antt1->Chart;
var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2001,1,1).operator double()));
var_Chart->set_PaneWidth(false,48);
var_Chart->OverviewVisible = Exg2anttlib_tlb::OverviewVisibleEnum::exOverviewShowAllVisible;
var_Chart->LevelCount = 2;
var_Chart->AllowOverviewZoom = Exg2anttlib_tlb::OverviewZoomEnum::exAlwaysZoom;
var_Chart->OverviewZoomUnit = 24;
var_Chart->OverviewZoomCaption = L"Y|½Y|¼Y|<img>2<img>|T|W|<img>1<img>|H|M|S";
G2antt1->Columns->Add(L"Column");
Exg2anttlib_tlb::IItemsPtr var_Items = G2antt1->Items;
var_Items->AddBar(var_Items->AddItem(TVariant("Item 1")),TVariant("Task"),TVariant(TDateTime(2001,1,2).operator double()),TVariant(TDateTime(2001,1,4).operator double()),TNoParam(),TNoParam());
var_Items->AddBar(var_Items->AddItem(TVariant("Item 2")),TVariant("Task"),TVariant(TDateTime(2001,1,16).operator double()),TVariant(TDateTime(2001,1,25).operator double()),TNoParam(),TNoParam());
var_Items->AddBar(var_Items->AddItem(TVariant("Item 3")),TVariant("Task"),TVariant(TDateTime(2001,1,2).operator double()),TVariant(TDateTime(2001,1,4).operator double()),TNoParam(),TNoParam());
var_Items->AddBar(var_Items->AddItem(TVariant("Item 4")),TVariant("Task"),TVariant(TDateTime(2001,2,16).operator double()),TVariant(TDateTime(2001,2,25).operator double()),TNoParam(),TNoParam());
G2antt1->EndUpdate();
|
|
1130
|
How do I change (for localisation) the text in the buttons like (Sec., Min., Hour, Month...)
G2antt1->BeginUpdate();
Exg2anttlib_tlb::IChartPtr var_Chart = G2antt1->Chart;
var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2001,1,1).operator double()));
var_Chart->set_PaneWidth(false,48);
var_Chart->OverviewVisible = Exg2anttlib_tlb::OverviewVisibleEnum::exOverviewShowAllVisible;
var_Chart->LevelCount = 2;
var_Chart->AllowOverviewZoom = Exg2anttlib_tlb::OverviewZoomEnum::exAlwaysZoom;
var_Chart->OverviewZoomUnit = 24;
var_Chart->OverviewZoomCaption = L"Y|½Y|¼Y|Mo|T|W|D|H|Mi|S";
G2antt1->Columns->Add(L"Column");
Exg2anttlib_tlb::IItemsPtr var_Items = G2antt1->Items;
var_Items->AddBar(var_Items->AddItem(TVariant("Item 1")),TVariant("Task"),TVariant(TDateTime(2001,1,2).operator double()),TVariant(TDateTime(2001,1,4).operator double()),TNoParam(),TNoParam());
var_Items->AddBar(var_Items->AddItem(TVariant("Item 2")),TVariant("Task"),TVariant(TDateTime(2001,1,16).operator double()),TVariant(TDateTime(2001,1,25).operator double()),TNoParam(),TNoParam());
var_Items->AddBar(var_Items->AddItem(TVariant("Item 3")),TVariant("Task"),TVariant(TDateTime(2001,1,2).operator double()),TVariant(TDateTime(2001,1,4).operator double()),TNoParam(),TNoParam());
var_Items->AddBar(var_Items->AddItem(TVariant("Item 4")),TVariant("Task"),TVariant(TDateTime(2001,2,16).operator double()),TVariant(TDateTime(2001,2,25).operator double()),TNoParam(),TNoParam());
G2antt1->EndUpdate();
|
|
1129
|
How I can change the Months and Weekdays
G2antt1->BeginUpdate();
Exg2anttlib_tlb::IChartPtr var_Chart = G2antt1->Chart;
var_Chart->set_PaneWidth(false,0);
var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2010,2,1).operator double()));
var_Chart->LevelCount = 2;
var_Chart->UnitWidth = 10;
var_Chart->MonthNames = L"1 2 3 4 5 6 7 8 9 10 11 12";
var_Chart->WeekDays = L"A B C D E F G";
Exg2anttlib_tlb::ILevelPtr var_Level = var_Chart->get_Level(0);
var_Level->set_Label(TVariant("<%mmmm%>"));
var_Level->Unit = Exg2anttlib_tlb::UnitEnum::exMonth;
Exg2anttlib_tlb::ILevelPtr var_Level1 = var_Chart->get_Level(1);
var_Level1->set_Label(TVariant("<font ;6><%ddd%>"));
var_Level1->Unit = Exg2anttlib_tlb::UnitEnum::exDay;
G2antt1->EndUpdate();
|
|
1128
|
How do i get the current window time frame (the start and end) of the gantt chart
// DateChange event - Occurs when the first visible date is changed.
void __fastcall TForm1::G2antt1DateChange(TObject *Sender)
{
Exg2anttlib_tlb::IChartPtr var_Chart = G2antt1->Chart;
OutputDebugString( L"Start" );
OutputDebugString( PChar(var_Chart->get_FirstVisibleDate()) );
OutputDebugString( L"" );
OutputDebugString( L"End" );
OutputDebugString( PChar(var_Chart->get_DateFromPoint(var_Chart->get_PaneWidth(true),0)) );
}
G2antt1->BeginUpdate();
Exg2anttlib_tlb::IChartPtr var_Chart = G2antt1->Chart;
var_Chart->set_PaneWidth(false,1);
var_Chart->LevelCount = 2;
var_Chart->ScrollTo(TDateTime(2010,1,1).operator double(),TVariant(0));
G2antt1->EndUpdate();
|
|
1127
|
When I use this Chart.get_DateFromPoint(exg2antt1.Width, 0) I get date as 0, 30/12/1899, or 12:00:00 AM. What that means
// MouseMove event - Occurs when the user moves the mouse.
void __fastcall TForm1::G2antt1MouseMove(TObject *Sender,short Button,short Shift,int X,int Y)
{
OutputDebugString( PChar(G2antt1->Chart->get_DateFromPoint(-1,-1)) );
}
Exg2anttlib_tlb::IChartPtr var_Chart = G2antt1->Chart;
var_Chart->set_PaneWidth(false,48);
var_Chart->LevelCount = 2;
|
|
1126
|
How do I enable grabing bars to other items/rows (and only enable them to be dropped on certain rows)
// BarParentChange event - Occurs just before moving a bar from current item to another item.
void __fastcall TForm1::G2antt1BarParentChange(TObject *Sender,Exg2anttlib_tlb::HITEM Item,Variant Key,Exg2anttlib_tlb::HITEM NewItem,VARIANT_BOOL * Cancel)
{
OutputDebugString( G2antt1->Items->get_CellCaption(TVariant(NewItem),TVariant(0)) );
Cancel = TVariant(G2antt1->Items->get_ItemData(NewItem));
}
G2antt1->BeginUpdate();
Exg2anttlib_tlb::IChartPtr var_Chart = G2antt1->Chart;
var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2001,1,1).operator double()));
var_Chart->set_PaneWidth(false,48);
var_Chart->AllowLinkBars = false;
var_Chart->Bars->get_Item(TVariant("Task"))->OverlaidType = Exg2anttlib_tlb::OverlaidBarsTypeEnum::exOverlaidBarsTransparent | Exg2anttlib_tlb::OverlaidBarsTypeEnum::exOverlaidBarsOffset;
G2antt1->Columns->Add(L"Column");
Exg2anttlib_tlb::IItemsPtr var_Items = G2antt1->Items;
long h = var_Items->AddItem(TVariant("Item 1"));
var_Items->set_EnableItem(h,false);
var_Items->set_ItemData(h,TVariant(-1));
h = var_Items->AddItem(TVariant("Item 2"));
var_Items->set_ItemData(h,TVariant(0));
var_Items->AddBar(h,TVariant("Task"),TVariant(TDateTime(2001,1,5).operator double()),TVariant(TDateTime(2001,1,7).operator double()),TVariant("B"),TNoParam());
var_Items->set_ItemBar(h,TVariant("B"),Exg2anttlib_tlb::ItemBarPropertyEnum::exBarCanMoveToAnother,TVariant(true));
var_Items->set_ItemData(var_Items->AddItem(TVariant("Item 3")),TVariant(0));
h = var_Items->AddItem(TVariant("Item 4"));
var_Items->set_EnableItem(h,false);
var_Items->set_ItemData(h,TVariant(-1));
G2antt1->EndUpdate();
|
|
1125
|
How can I find out if a date time is a non-working part
// MouseMove event - Occurs when the user moves the mouse.
void __fastcall TForm1::G2antt1MouseMove(TObject *Sender,short Button,short Shift,int X,int Y)
{
long h = G2antt1->ItemFromPoint[-1,-1,c,hit];
Date d = G2antt1->Chart->get_DateFromPoint(-1,-1);
OutputDebugString( L"d" );
OutputDebugString( PChar(G2antt1->Chart->get_IsNonworkingDate(TVariant(d),TVariant(h))) );
}
G2antt1->BeginUpdate();
G2antt1->Columns->Add(L"NonWorking");
Exg2anttlib_tlb::IChartPtr var_Chart = G2antt1->Chart;
var_Chart->FirstWeekDay = Exg2anttlib_tlb::WeekDayEnum::exMonday;
var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2008,1,24).operator double()));
var_Chart->set_PaneWidth(false,64);
var_Chart->LevelCount = 2;
Exg2anttlib_tlb::IItemsPtr var_Items = G2antt1->Items;
long h = var_Items->AddItem(TVariant("Default"));
h = var_Items->AddItem(TVariant("January"));
var_Items->set_ItemNonworkingUnits(h,TVariant(false),L"month(value) = 1");
h = var_Items->AddItem(TVariant("February, Saturday, Sunday"));
var_Items->set_ItemNonworkingUnits(h,TVariant(false),L"month(value) = 2 or (weekday(value) = 0 or weekday(value) = 6)");
h = var_Items->AddItem(TVariant("Sunday"));
var_Items->set_ItemNonworkingUnits(h,TVariant(false),L"weekday(value) = 0");
G2antt1->EndUpdate();
|
|
1124
|
I am using the ItemBar property exBarCanMoveToAnother, How do I stop it from being dropped on certain chart rows
// BarParentChange event - Occurs just before moving a bar from current item to another item.
void __fastcall TForm1::G2antt1BarParentChange(TObject *Sender,Exg2anttlib_tlb::HITEM Item,Variant Key,Exg2anttlib_tlb::HITEM NewItem,VARIANT_BOOL * Cancel)
{
OutputDebugString( G2antt1->Items->get_CellCaption(TVariant(NewItem),TVariant(0)) );
Cancel = TVariant(G2antt1->Items->get_ItemData(NewItem));
}
G2antt1->BeginUpdate();
Exg2anttlib_tlb::IChartPtr var_Chart = G2antt1->Chart;
var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2001,1,1).operator double()));
var_Chart->set_PaneWidth(false,48);
var_Chart->AllowLinkBars = false;
var_Chart->Bars->get_Item(TVariant("Task"))->OverlaidType = Exg2anttlib_tlb::OverlaidBarsTypeEnum::exOverlaidBarsTransparent | Exg2anttlib_tlb::OverlaidBarsTypeEnum::exOverlaidBarsOffset;
G2antt1->Columns->Add(L"Column");
Exg2anttlib_tlb::IItemsPtr var_Items = G2antt1->Items;
long h = var_Items->AddItem(TVariant("Item 1"));
var_Items->set_EnableItem(h,false);
var_Items->set_ItemData(h,TVariant(-1));
h = var_Items->AddItem(TVariant("Item 2"));
var_Items->set_ItemData(h,TVariant(0));
var_Items->AddBar(h,TVariant("Task"),TVariant(TDateTime(2001,1,5).operator double()),TVariant(TDateTime(2001,1,7).operator double()),TVariant("B"),TNoParam());
var_Items->set_ItemBar(h,TVariant("B"),Exg2anttlib_tlb::ItemBarPropertyEnum::exBarCanMoveToAnother,TVariant(true));
var_Items->set_ItemData(var_Items->AddItem(TVariant("Item 3")),TVariant(0));
var_Items->set_ItemData(var_Items->AddItem(TVariant("Item 4")),TVariant(0));
G2antt1->EndUpdate();
|
|
1123
|
What is the event I should use to capture the click event on the task item on left hand side
// Click event - Occurs when the user presses and then releases the left mouse button over the tree control.
void __fastcall TForm1::G2antt1Click(TObject *Sender)
{
long h = G2antt1->ItemFromPoint[-1,-1,c,hit];
OutputDebugString( G2antt1->Items->get_CellCaption(TVariant(h),TVariant(c)) );
}
G2antt1->BeginUpdate();
G2antt1->LinesAtRoot = Exg2anttlib_tlb::LinesAtRootEnum::exLinesAtRoot;
G2antt1->Columns->Add(L"Items");
Exg2anttlib_tlb::IItemsPtr var_Items = G2antt1->Items;
long h = var_Items->AddItem(TVariant("R1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Cell 1.1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Cell 1.2"));
var_Items->set_ExpandItem(h,true);
h = var_Items->AddItem(TVariant("R2"));
var_Items->InsertItem(h,TNoParam(),TVariant("Cell 2.1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Cell 2.2"));
var_Items->set_ExpandItem(h,true);
G2antt1->EndUpdate();
|
|
1122
|
Can I add a hyperlink assigned to a bar
// AnchorClick event - Occurs when an anchor element is clicked.
void __fastcall TForm1::G2antt1AnchorClick(TObject *Sender,BSTR AnchorID,BSTR Options)
{
OutputDebugString( L"AnchorID" );
}
G2antt1->BeginUpdate();
G2antt1->Columns->Add(L"Task");
Exg2anttlib_tlb::IChartPtr var_Chart = G2antt1->Chart;
var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2001,1,1).operator double()));
var_Chart->set_PaneWidth(false,48);
Exg2anttlib_tlb::IItemsPtr var_Items = G2antt1->Items;
long h = var_Items->AddItem(TVariant("Task 1"));
var_Items->AddBar(h,TVariant("Task"),TVariant(TDateTime(2001,1,2).operator double()),TVariant(TDateTime(2001,1,6).operator double()),TVariant("K"),TNoParam());
var_Items->set_ItemBar(h,TVariant("K"),Exg2anttlib_tlb::ItemBarPropertyEnum::exBarCaption,TVariant("default"));
var_Items->set_ItemBar(h,TVariant("K"),Exg2anttlib_tlb::ItemBarPropertyEnum::exBarHAlignCaption,TVariant(18));
h = var_Items->AddItem(TVariant("Task 2"));
var_Items->AddBar(h,TVariant("Task"),TVariant(TDateTime(2001,1,2).operator double()),TVariant(TDateTime(2001,1,6).operator double()),TVariant("K"),TNoParam());
var_Items->set_ItemBar(h,TVariant("K"),Exg2anttlib_tlb::ItemBarPropertyEnum::exBarCaption,TVariant("<a1><b>A 1</b></a>"));
var_Items->set_ItemBar(h,TVariant("K"),Exg2anttlib_tlb::ItemBarPropertyEnum::exBarHAlignCaption,TVariant(18));
h = var_Items->AddItem(TVariant("Task 3"));
var_Items->AddBar(h,TVariant("Task"),TVariant(TDateTime(2001,1,2).operator double()),TVariant(TDateTime(2001,1,6).operator double()),TVariant("K"),TNoParam());
var_Items->set_ItemBar(h,TVariant("K"),Exg2anttlib_tlb::ItemBarPropertyEnum::exBarCaption,TVariant("<a2><b>A 2</b></a>"));
var_Items->set_ItemBar(h,TVariant("K"),Exg2anttlib_tlb::ItemBarPropertyEnum::exBarHAlignCaption,TVariant(18));
G2antt1->EndUpdate();
|
|
1121
|
Can I change the background color only for the text (caption) in a bar
G2antt1->BeginUpdate();
G2antt1->Columns->Add(L"Task");
Exg2anttlib_tlb::IChartPtr var_Chart = G2antt1->Chart;
var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2001,1,1).operator double()));
var_Chart->set_PaneWidth(false,48);
Exg2anttlib_tlb::IItemsPtr var_Items = G2antt1->Items;
long h = var_Items->AddItem(TVariant("Task 1"));
var_Items->AddBar(h,TVariant("Task"),TVariant(TDateTime(2001,1,2).operator double()),TVariant(TDateTime(2001,1,6).operator double()),TVariant("K"),TNoParam());
var_Items->set_ItemBar(h,TVariant("K"),Exg2anttlib_tlb::ItemBarPropertyEnum::exBarCaption,TVariant("default"));
var_Items->set_ItemBar(h,TVariant("K"),Exg2anttlib_tlb::ItemBarPropertyEnum::exBarHAlignCaption,TVariant(18));
h = var_Items->AddItem(TVariant("Task 2"));
var_Items->AddBar(h,TVariant("Task"),TVariant(TDateTime(2001,1,2).operator double()),TVariant(TDateTime(2001,1,6).operator double()),TVariant("K"),TNoParam());
var_Items->set_ItemBar(h,TVariant("K"),Exg2anttlib_tlb::ItemBarPropertyEnum::exBarCaption,TVariant("using <bgcolor=FF0000>bgcolor</bgcolor> HTML attribute "));
var_Items->set_ItemBar(h,TVariant("K"),Exg2anttlib_tlb::ItemBarPropertyEnum::exBarHAlignCaption,TVariant(18));
G2antt1->EndUpdate();
|
|
1120
|
Can I change the font to display the text (caption) in a bar
G2antt1->BeginUpdate();
G2antt1->Columns->Add(L"Task");
Exg2anttlib_tlb::IChartPtr var_Chart = G2antt1->Chart;
var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2001,1,1).operator double()));
var_Chart->set_PaneWidth(false,48);
Exg2anttlib_tlb::IItemsPtr var_Items = G2antt1->Items;
long h = var_Items->AddItem(TVariant("Task 1"));
var_Items->AddBar(h,TVariant("Task"),TVariant(TDateTime(2001,1,2).operator double()),TVariant(TDateTime(2001,1,6).operator double()),TVariant("K"),TNoParam());
var_Items->set_ItemBar(h,TVariant("K"),Exg2anttlib_tlb::ItemBarPropertyEnum::exBarCaption,TVariant("default"));
var_Items->set_ItemBar(h,TVariant("K"),Exg2anttlib_tlb::ItemBarPropertyEnum::exBarHAlignCaption,TVariant(18));
h = var_Items->AddItem(TVariant("Task 2"));
var_Items->AddBar(h,TVariant("Task"),TVariant(TDateTime(2001,1,2).operator double()),TVariant(TDateTime(2001,1,6).operator double()),TVariant("K"),TNoParam());
var_Items->set_ItemBar(h,TVariant("K"),Exg2anttlib_tlb::ItemBarPropertyEnum::exBarCaption,TVariant("<font Segoe UI;8 >using font HTML attribute </fgcolor>"));
var_Items->set_ItemBar(h,TVariant("K"),Exg2anttlib_tlb::ItemBarPropertyEnum::exBarHAlignCaption,TVariant(18));
G2antt1->EndUpdate();
|
|
1119
|
How do i change the forecolor of text (caption) in a bar
G2antt1->BeginUpdate();
G2antt1->Columns->Add(L"Task");
Exg2anttlib_tlb::IChartPtr var_Chart = G2antt1->Chart;
var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2001,1,1).operator double()));
var_Chart->set_PaneWidth(false,48);
Exg2anttlib_tlb::IItemsPtr var_Items = G2antt1->Items;
long h = var_Items->AddItem(TVariant("Task 1"));
var_Items->AddBar(h,TVariant("Task"),TVariant(TDateTime(2001,1,2).operator double()),TVariant(TDateTime(2001,1,6).operator double()),TVariant("K"),TNoParam());
var_Items->set_ItemBar(h,TVariant("K"),Exg2anttlib_tlb::ItemBarPropertyEnum::exBarCaption,TVariant("default"));
var_Items->set_ItemBar(h,TVariant("K"),Exg2anttlib_tlb::ItemBarPropertyEnum::exBarHAlignCaption,TVariant(18));
h = var_Items->AddItem(TVariant("Task 2"));
var_Items->AddBar(h,TVariant("Task"),TVariant(TDateTime(2001,1,2).operator double()),TVariant(TDateTime(2001,1,6).operator double()),TVariant("K"),TNoParam());
var_Items->set_ItemBar(h,TVariant("K"),Exg2anttlib_tlb::ItemBarPropertyEnum::exBarCaption,TVariant("<fgcolor=FF0000>using fgcolor HTML attribute </fgcolor>"));
var_Items->set_ItemBar(h,TVariant("K"),Exg2anttlib_tlb::ItemBarPropertyEnum::exBarHAlignCaption,TVariant(18));
h = var_Items->AddItem(TVariant("Task 3"));
var_Items->AddBar(h,TVariant("Task"),TVariant(TDateTime(2001,1,2).operator double()),TVariant(TDateTime(2001,1,6).operator double()),TVariant("K"),TNoParam());
var_Items->set_ItemBar(h,TVariant("K"),Exg2anttlib_tlb::ItemBarPropertyEnum::exBarCaption,TVariant("using exBarForeColor"));
var_Items->set_ItemBar(h,TVariant("K"),Exg2anttlib_tlb::ItemBarPropertyEnum::exBarHAlignCaption,TVariant(18));
var_Items->set_ItemBar(h,TVariant("K"),Exg2anttlib_tlb::ItemBarPropertyEnum::exBarForeColor,TVariant(65280));
G2antt1->EndUpdate();
|
|
1118
|
I have noticed that when scrolling horizontally the chart a tooltip shown. is it possible to actually do the scrolling without showing the tooltip
G2antt1->BeginUpdate();
G2antt1->Columns->Add(L"Tasks");
Exg2anttlib_tlb::IChartPtr var_Chart = G2antt1->Chart;
var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2005,6,20).operator double()));
var_Chart->AllowLinkBars = true;
var_Chart->LevelCount = 2;
var_Chart->set_PaneWidth(false,48);
var_Chart->ToolTip = L"";
Exg2anttlib_tlb::IItemsPtr var_Items = G2antt1->Items;
var_Items->AddBar(var_Items->AddItem(TVariant("Task 1")),TVariant("Task"),TVariant(TDateTime(2005,6,21).operator double()),TVariant(TDateTime(2005,6,25).operator double()),TVariant("A"),TNoParam());
var_Items->AddBar(var_Items->AddItem(TVariant("Task 2")),TVariant("Task"),TVariant(TDateTime(2005,6,28).operator double()),TVariant(TDateTime(2005,7,2).operator double()),TVariant("B"),TNoParam());
G2antt1->EndUpdate();
|
|
1117
|
How can I add a bar to be treated as a nonworking part like a "holidays" bar
G2antt1->BeginUpdate();
Exg2anttlib_tlb::IChartPtr var_Chart = G2antt1->Chart;
var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2001,1,1).operator double()));
var_Chart->LevelCount = 2;
var_Chart->set_PaneWidth(false,48);
var_Chart->AllowNonworkingBars = true;
var_Chart->Bars->Add(L"Task:Split")->Shortcut = L"Task";
G2antt1->Columns->Add(L"Tasks");
Exg2anttlib_tlb::IItemsPtr var_Items = G2antt1->Items;
long h = var_Items->AddItem(TVariant("Task 1"));
var_Items->set_ItemNonworkingUnits(h,TVariant(false),L"weekday(value) in (0,6)");
var_Items->AddBar(h,TVariant(""),TVariant(TDateTime(2001,1,2).operator double()),TVariant(TDateTime(2001,1,5).operator double()),TVariant("A"),TVariant("holyday"));
var_Items->set_ItemBar(h,TVariant("A"),Exg2anttlib_tlb::ItemBarPropertyEnum::exBarTreatAsNonworking,TVariant(true));
var_Items->AddBar(h,TVariant("Task"),TVariant(TDateTime(2001,1,5).operator double()),TVariant(TDateTime(2001,1,12).operator double()),TVariant("Z"),TNoParam());
var_Items->set_ItemBar(h,TVariant("Z"),Exg2anttlib_tlb::ItemBarPropertyEnum::exBarKeepWorkingCount,TVariant(true));
G2antt1->EndUpdate();
|
|
1116
|
Is it possible to add bars that act like a non-working fixed part or the item
G2antt1->BeginUpdate();
Exg2anttlib_tlb::IChartPtr var_Chart = G2antt1->Chart;
var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2001,1,1).operator double()));
var_Chart->LevelCount = 2;
var_Chart->set_PaneWidth(false,48);
var_Chart->AllowNonworkingBars = true;
G2antt1->Columns->Add(L"Tasks");
Exg2anttlib_tlb::IItemsPtr var_Items = G2antt1->Items;
long h = var_Items->AddItem(TVariant("Task 1"));
var_Items->set_ItemNonworkingUnits(h,TVariant(false),L"weekday(value) in (0,6)");
var_Items->AddBar(h,TVariant(""),TVariant(TDateTime(2001,1,3).operator double()),TVariant(TDateTime(2001,1,6).operator double()),TVariant("h"),TVariant("holyday"));
var_Items->set_ItemBar(h,TVariant("h"),Exg2anttlib_tlb::ItemBarPropertyEnum::exBarTreatAsNonworking,TVariant(true));
var_Items->set_ItemBar(h,TVariant("h"),Exg2anttlib_tlb::ItemBarPropertyEnum::exBarSelectable,TVariant(false));
G2antt1->EndUpdate();
|
|
1115
|
Is it possible to add bars that act like a non-working part or the item
G2antt1->BeginUpdate();
Exg2anttlib_tlb::IChartPtr var_Chart = G2antt1->Chart;
var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2001,1,1).operator double()));
var_Chart->LevelCount = 2;
var_Chart->set_PaneWidth(false,48);
var_Chart->AllowNonworkingBars = true;
G2antt1->Columns->Add(L"Tasks");
Exg2anttlib_tlb::IItemsPtr var_Items = G2antt1->Items;
long h = var_Items->AddItem(TVariant("Task 1"));
var_Items->set_ItemNonworkingUnits(h,TVariant(false),L"weekday(value) in (0,6)");
var_Items->AddBar(h,TVariant(""),TVariant(TDateTime(2001,1,3).operator double()),TVariant(TDateTime(2001,1,6).operator double()),TVariant("h"),TVariant("holyday"));
var_Items->set_ItemBar(h,TVariant("h"),Exg2anttlib_tlb::ItemBarPropertyEnum::exBarTreatAsNonworking,TVariant(true));
G2antt1->EndUpdate();
|
|
1114
|
How can I change the both dates for the bar at once
G2antt1->BeginUpdate();
G2antt1->Columns->Add(L"Tasks");
Exg2anttlib_tlb::IChartPtr var_Chart = G2antt1->Chart;
var_Chart->set_PaneWidth(false,64);
var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2005,6,21).operator double()));
var_Chart->ShowEmptyBars = 1;
Exg2anttlib_tlb::IItemsPtr var_Items = G2antt1->Items;
long h = var_Items->AddItem(TVariant("Test"));
var_Items->AddBar(h,TVariant("Task"),TVariant(TDateTime(2005,6,22).operator double()),TVariant(TDateTime(2005,6,26).operator double()),TVariant(""),TNoParam());
var_Items->AddBar(h,TVariant("Task"),TVariant(TDateTime(2005,6,27).operator double()),TVariant(TDateTime(2005,6,29).operator double()),TNoParam(),TNoParam());
G2antt1->EndUpdate();
|
|
1113
|
How can I get the selected bars in the chart
// ChartSelectionChanged event - Occurs when the user selects objects in the chart area.
void __fastcall TForm1::G2antt1ChartSelectionChanged(TObject *Sender)
{
OutputDebugString( PChar(G2antt1->Items->get_SelectedObjects(Exg2anttlib_tlb::SelectObjectsEnum::exSelectBarsOnly)) );
}
G2antt1->BeginUpdate();
G2antt1->Columns->Add(L"Tasks");
Exg2anttlib_tlb::IChartPtr var_Chart = G2antt1->Chart;
var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2005,6,20).operator double()));
var_Chart->AllowLinkBars = true;
var_Chart->LevelCount = 2;
var_Chart->set_PaneWidth(false,48);
Exg2anttlib_tlb::IItemsPtr var_Items = G2antt1->Items;
var_Items->AddBar(var_Items->AddItem(TVariant("Task 1")),TVariant("Task"),TVariant(TDateTime(2005,6,21).operator double()),TVariant(TDateTime(2005,6,25).operator double()),TVariant("A"),TNoParam());
var_Items->AddBar(var_Items->AddItem(TVariant("Task 2")),TVariant("Task"),TVariant(TDateTime(2005,6,28).operator double()),TVariant(TDateTime(2005,7,2).operator double()),TVariant("B"),TNoParam());
var_Items->set_ItemBar(var_Items->FirstVisibleItem,TVariant(var_Items->get_FirstItemBar(var_Items->FirstVisibleItem)),Exg2anttlib_tlb::ItemBarPropertyEnum::exBarSelected,TVariant(true));
G2antt1->EndUpdate();
|
|
1112
|
How can I list the actions that can be performed by undo operations
// ChartEndChanging event - Occurs after the chart has been changed.
void __fastcall TForm1::G2antt1ChartEndChanging(TObject *Sender,Exg2anttlib_tlb::BarOperationEnum Operation)
{
OutputDebugString( G2antt1->Chart->get_UndoListAction(TNoParam(),TNoParam()) );
}
G2antt1->BeginUpdate();
G2antt1->Chart->set_FirstVisibleDate(TVariant(TDateTime(2001,1,1).operator double()));
G2antt1->Chart->AllowLinkBars = false;
G2antt1->Chart->Bars->get_Item(TVariant("Task"))->OverlaidType = Exg2anttlib_tlb::OverlaidBarsTypeEnum::exOverlaidBarsTransparent | Exg2anttlib_tlb::OverlaidBarsTypeEnum::exOverlaidBarsOffset;
G2antt1->Chart->AllowUndoRedo = true;
G2antt1->Chart->set_PaneWidth(false,32);
G2antt1->Chart->Bars->Add(L"Task:Split")->Shortcut = L"Task";
G2antt1->Columns->Add(L"Column");
Exg2anttlib_tlb::IItemsPtr var_Items = G2antt1->Items;
var_Items->AddBar(var_Items->AddItem(TVariant("Item 1")),TVariant("Task"),TVariant(TDateTime(2001,1,2).operator double()),TVariant(TDateTime(2001,1,4).operator double()),TVariant("A"),TNoParam());
long h = var_Items->AddItem(TVariant("Item 2"));
var_Items->AddBar(h,TVariant("Task"),TVariant(TDateTime(2001,1,5).operator double()),TVariant(TDateTime(2001,1,9).operator double()),TVariant("B"),TNoParam());
var_Items->set_ItemBar(h,TVariant("B"),Exg2anttlib_tlb::ItemBarPropertyEnum::exBarCanMoveToAnother,TVariant(true));
var_Items->set_ItemBar(h,TVariant("B"),Exg2anttlib_tlb::ItemBarPropertyEnum::exBarKeepWorkingCount,TVariant(true));
var_Items->set_ItemNonworkingUnits(var_Items->AddItem(TVariant("Item 3")),TVariant(false),L"weekday(value)=0");
var_Items->set_ItemNonworkingUnits(var_Items->AddItem(TVariant("Item 4")),TVariant(false),L"weekday(value) in (3,5)");
G2antt1->EndUpdate();
|
|
1111
|
How can I change the predefined labels being displayed in the chart's header so it shows the data in short format with no literals
G2antt1->BeginUpdate();
Exg2anttlib_tlb::IChartPtr var_Chart = G2antt1->Chart;
var_Chart->set_PaneWidth(false,0);
var_Chart->AllowOverviewZoom = Exg2anttlib_tlb::OverviewZoomEnum::exAlwaysZoom;
var_Chart->OverviewVisible = Exg2anttlib_tlb::OverviewVisibleEnum::exOverviewShowAllVisible;
var_Chart->LevelCount = 3;
var_Chart->set_Label(Exg2anttlib_tlb::UnitEnum::exYear,L"<%yy%><|><%yyyy%>");
var_Chart->set_Label(Exg2anttlib_tlb::UnitEnum::exHalfYear,L"");
var_Chart->set_Label(Exg2anttlib_tlb::UnitEnum::exQuarterYear,L"");
var_Chart->set_Label(Exg2anttlib_tlb::UnitEnum::exMonth,L"<|><%m%><|><%m%>/<%yy%><|><%m%>/<%yyyy%>");
var_Chart->set_Label(Exg2anttlib_tlb::UnitEnum::exThirdMonth,L"");
var_Chart->set_Label(Exg2anttlib_tlb::UnitEnum::exWeek,L"<|><%ww%><|><%m%>/<%d%>/<%yy%><r><%ww%><|><%m%>/<%d%>/<%yyyy%><r><%ww%><||><||>256");
var_Chart->set_Label(Exg2anttlib_tlb::UnitEnum::exDay,L"<|><%d%><|><%m%>/<%d%>/<%yy%><|><%m%>/<%d%>/<%yyyy%><||><||>4096");
var_Chart->set_Label(Exg2anttlib_tlb::UnitEnum::exHour,L"<|><%hh%><|><%m%>/<%d%>/<%yy%> <%h%> <%AM/PM%><|><%m%>/<%d%>/<%yyyy%> <%h%> <%AM/PM%><||><||>65536");
var_Chart->set_Label(Exg2anttlib_tlb::UnitEnum::exMinute,L"<|><%nn%><|><%h%>:<%nn% <%AM/PM%>><|><%m%>/<%d%>/<%yy%> <%h%>:<%nn%> <%AM/PM%><|><%m%>/<%d%>/<%yyyy%> <%h%>:<%nn%> <%AM/PM%>");
var_Chart->set_Label(Exg2anttlib_tlb::UnitEnum::exSecond,TVariant(String("<|><%ss%><|><%nn%>:<%ss%><|><%h%>:<%nn%>:<%ss%> <%AM/PM%><|><%m%>/<%d%>/<%yy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%><|><%m%>/<%d%>/<%yy") +
"yy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%>"));
var_Chart->set_LabelToolTip(Exg2anttlib_tlb::UnitEnum::exYear,L"<%yyyy%>");
var_Chart->set_LabelToolTip(Exg2anttlib_tlb::UnitEnum::exHalfYear,L"");
var_Chart->set_LabelToolTip(Exg2anttlib_tlb::UnitEnum::exQuarterYear,L"");
var_Chart->set_LabelToolTip(Exg2anttlib_tlb::UnitEnum::exMonth,L"<%m%>/<%yyyy%>");
var_Chart->set_LabelToolTip(Exg2anttlib_tlb::UnitEnum::exThirdMonth,L"");
var_Chart->set_LabelToolTip(Exg2anttlib_tlb::UnitEnum::exWeek,L"<%m%>/<%d%>/<%yyyy%> <%ww%>");
var_Chart->set_LabelToolTip(Exg2anttlib_tlb::UnitEnum::exDay,L"<%m%>/<%d%>/<%yyyy%>");
var_Chart->set_LabelToolTip(Exg2anttlib_tlb::UnitEnum::exHour,L"<%m%>/<%d%>/<%yyyy%> <%h%> <%AM/PM%>");
var_Chart->set_LabelToolTip(Exg2anttlib_tlb::UnitEnum::exMinute,L"<%m%>/<%d%>/<%yyyy%> <%h%>:<%nn%> <%AM/PM%>");
var_Chart->set_LabelToolTip(Exg2anttlib_tlb::UnitEnum::exSecond,L"<%m%>/<%d%>/<%yyyy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%>");
var_Chart->UnitScale = Exg2anttlib_tlb::UnitEnum::exDay;
G2antt1->EndUpdate();
|
|
1110
|
The histogram does not show (correctly) the bars, even if I changed the Bar.HistogramPattern and Bar.HistogramColor properties. What can be wrong
G2antt1->BeginUpdate();
Exg2anttlib_tlb::IChartPtr var_Chart = G2antt1->Chart;
var_Chart->set_PaneWidth(false,48);
var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2000,12,27).operator double()));
var_Chart->HistogramVisible = true;
var_Chart->HistogramHeight = 32;
Exg2anttlib_tlb::IBarPtr var_Bar = var_Chart->Bars->get_Item(TVariant("Task"));
var_Bar->HistogramPattern = Exg2anttlib_tlb::PatternEnum::exPatternBDiagonal;
var_Bar->HistogramColor = RGB(255,0,0);
var_Chart->ResizeUnitScale = Exg2anttlib_tlb::UnitEnum::exHour;
G2antt1->Columns->Add(L"Column");
Exg2anttlib_tlb::IItemsPtr var_Items = G2antt1->Items;
var_Items->AddBar(var_Items->AddItem(TVariant("Task 1")),TVariant("Task"),TVariant(TDateTime(2001,1,2,8,00,00,0).operator double()),TVariant(TDateTime(2001,1,2,12,00,00,0).operator double()),TNoParam(),TNoParam());
var_Items->AddBar(var_Items->AddItem(TVariant("Task 2")),TVariant("Task"),TVariant(TDateTime(2001,1,1,8,00,00,0).operator double()),TVariant(TDateTime(2001,1,5,12,00,00,0).operator double()),TNoParam(),TNoParam());
G2antt1->EndUpdate();
|
|
1109
|
How can I change the default key for the newly added link from "Link1" to my identifier
// AddLink event - Occurs when the user links two bars using the mouse.
void __fastcall TForm1::G2antt1AddLink(TObject *Sender,BSTR LinkKey)
{
Exg2anttlib_tlb::IItemsPtr var_Items = G2antt1->Items;
var_Items->AddLink(TVariant("newIDlink"),var_Items->get_Link(TVariant(LinkKey),Exg2anttlib_tlb::LinkPropertyEnum::exLinkStartItem),TVariant(var_Items->get_Link(TVariant(LinkKey),Exg2anttlib_tlb::LinkPropertyEnum::exLinkStartBar)),var_Items->get_Link(TVariant(LinkKey),Exg2anttlib_tlb::LinkPropertyEnum::exLinkEndItem),TVariant(var_Items->get_Link(TVariant(LinkKey),Exg2anttlib_tlb::LinkPropertyEnum::exLinkEndBar)));
var_Items->RemoveLink(TVariant(LinkKey));
}
// MouseMove event - Occurs when the user moves the mouse.
void __fastcall TForm1::G2antt1MouseMove(TObject *Sender,short Button,short Shift,int X,int Y)
{
OutputDebugString( PChar(G2antt1->Chart->get_LinkFromPoint(-1,-1)) );
}
G2antt1->BeginUpdate();
G2antt1->Columns->Add(L"Tasks");
Exg2anttlib_tlb::IChartPtr var_Chart = G2antt1->Chart;
var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2005,6,20).operator double()));
var_Chart->AllowLinkBars = true;
var_Chart->LevelCount = 2;
var_Chart->set_PaneWidth(false,48);
Exg2anttlib_tlb::IItemsPtr var_Items = G2antt1->Items;
var_Items->AddBar(var_Items->AddItem(TVariant("Task 1")),TVariant("Task"),TVariant(TDateTime(2005,6,21).operator double()),TVariant(TDateTime(2005,6,25).operator double()),TVariant(""),TNoParam());
var_Items->AddBar(var_Items->AddItem(TVariant("Task 2")),TVariant("Task"),TVariant(TDateTime(2005,6,28).operator double()),TVariant(TDateTime(2005,7,2).operator double()),TVariant(""),TNoParam());
G2antt1->EndUpdate();
|
|
1108
|
How can I change the default key for the newly added link from "Link1" to my identifier
// AllowLink event - Notifies at runtime when a link between two bars is possible.
void __fastcall TForm1::G2antt1AllowLink(TObject *Sender,Exg2anttlib_tlb::HITEM StartItem,Variant StartBarKey,Exg2anttlib_tlb::HITEM EndItem,Variant EndBarKey,Variant * LinkKey,VARIANT_BOOL * Cancel)
{
LinkKey = "newIDlink";
}
// MouseMove event - Occurs when the user moves the mouse.
void __fastcall TForm1::G2antt1MouseMove(TObject *Sender,short Button,short Shift,int X,int Y)
{
OutputDebugString( PChar(G2antt1->Chart->get_LinkFromPoint(-1,-1)) );
}
G2antt1->BeginUpdate();
G2antt1->Columns->Add(L"Tasks");
Exg2anttlib_tlb::IChartPtr var_Chart = G2antt1->Chart;
var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2005,6,20).operator double()));
var_Chart->AllowLinkBars = true;
var_Chart->LevelCount = 2;
var_Chart->set_PaneWidth(false,48);
Exg2anttlib_tlb::IItemsPtr var_Items = G2antt1->Items;
var_Items->AddBar(var_Items->AddItem(TVariant("Task 1")),TVariant("Task"),TVariant(TDateTime(2005,6,21).operator double()),TVariant(TDateTime(2005,6,25).operator double()),TVariant(""),TNoParam());
var_Items->AddBar(var_Items->AddItem(TVariant("Task 2")),TVariant("Task"),TVariant(TDateTime(2005,6,28).operator double()),TVariant(TDateTime(2005,7,2).operator double()),TVariant(""),TNoParam());
G2antt1->EndUpdate();
|
|
1107
|
We want to have a Task ID column as the first column that shows the row number. How can we do that
// FormatColumn event - Fired when a cell requires to format its caption.
void __fastcall TForm1::G2antt1FormatColumn(TObject *Sender,Exg2anttlib_tlb::HITEM Item,long ColIndex,Variant * Value)
{
Value = G2antt1->Items->get_ItemPosition(Item);
}
G2antt1->BeginUpdate();
G2antt1->Columns->Add(L"Task");
Exg2anttlib_tlb::IColumnPtr var_Column = G2antt1->Columns->Add(L"Pos");
var_Column->Width = 24;
var_Column->AllowSizing = false;
var_Column->Position = 0;
var_Column->FireFormatColumn = true;
Exg2anttlib_tlb::IItemsPtr var_Items = G2antt1->Items;
var_Items->AddItem(TVariant("Task A"));
var_Items->AddItem(TVariant("Task B"));
var_Items->AddItem(TVariant("Task C"));
var_Items->AddItem(TVariant("Task D"));
G2antt1->EndUpdate();
|
|
1106
|
How can I get the caption of focused item
// SelectionChanged event - Fired after a new item has been selected.
void __fastcall TForm1::G2antt1SelectionChanged(TObject *Sender)
{
Exg2anttlib_tlb::IItemsPtr var_Items = G2antt1->Items;
OutputDebugString( L"Handle" );
OutputDebugString( PChar(var_Items->FocusItem) );
OutputDebugString( L"Caption" );
OutputDebugString( var_Items->get_CellCaption(TVariant(var_Items->FocusItem),TVariant(0)) );
}
G2antt1->BeginUpdate();
G2antt1->LinesAtRoot = Exg2anttlib_tlb::LinesAtRootEnum::exLinesAtRoot;
G2antt1->Columns->Add(L"Items");
Exg2anttlib_tlb::IItemsPtr var_Items = G2antt1->Items;
long h = var_Items->AddItem(TVariant("R1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Cell 1.1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Cell 1.2"));
var_Items->set_ExpandItem(h,true);
h = var_Items->AddItem(TVariant("R2"));
var_Items->InsertItem(h,TNoParam(),TVariant("Cell 2.1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Cell 2.2"));
var_Items->set_ExpandItem(h,true);
G2antt1->EndUpdate();
|
|
1105
|
How can I get the caption of selected item
// SelectionChanged event - Fired after a new item has been selected.
void __fastcall TForm1::G2antt1SelectionChanged(TObject *Sender)
{
Exg2anttlib_tlb::IItemsPtr var_Items = G2antt1->Items;
OutputDebugString( L"Handle" );
OutputDebugString( PChar(var_Items->get_SelectedItem(0)) );
OutputDebugString( L"Caption" );
OutputDebugString( var_Items->get_CellCaption(TVariant(var_Items->get_SelectedItem(0)),TVariant(0)) );
}
G2antt1->BeginUpdate();
G2antt1->LinesAtRoot = Exg2anttlib_tlb::LinesAtRootEnum::exLinesAtRoot;
G2antt1->Columns->Add(L"Items");
Exg2anttlib_tlb::IItemsPtr var_Items = G2antt1->Items;
long h = var_Items->AddItem(TVariant("R1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Cell 1.1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Cell 1.2"));
var_Items->set_ExpandItem(h,true);
h = var_Items->AddItem(TVariant("R2"));
var_Items->InsertItem(h,TNoParam(),TVariant("Cell 2.1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Cell 2.2"));
var_Items->set_ExpandItem(h,true);
G2antt1->EndUpdate();
|
|
1104
|
How can I get the link from the point
// MouseMove event - Occurs when the user moves the mouse.
void __fastcall TForm1::G2antt1MouseMove(TObject *Sender,short Button,short Shift,int X,int Y)
{
OutputDebugString( PChar(G2antt1->Chart->get_LinkFromPoint(-1,-1)) );
}
G2antt1->BeginUpdate();
G2antt1->Columns->Add(L"Task");
Exg2anttlib_tlb::IChartPtr var_Chart = G2antt1->Chart;
var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2000,12,29).operator double()));
var_Chart->set_PaneWidth(false,64);
var_Chart->LevelCount = 2;
Exg2anttlib_tlb::IItemsPtr var_Items = G2antt1->Items;
long h1 = var_Items->AddItem(TVariant("Task 1"));
var_Items->AddBar(h1,TVariant("Task"),TVariant(TDateTime(2001,1,2).operator double()),TVariant(TDateTime(2001,1,4).operator double()),TVariant("K1"),TNoParam());
long h2 = var_Items->AddItem(TVariant("Task 2"));
var_Items->AddBar(h2,TVariant("Task"),TVariant(TDateTime(2001,1,5).operator double()),TVariant(TDateTime(2001,1,7).operator double()),TVariant("K2"),TNoParam());
var_Items->AddLink(TVariant("L1"),h1,TVariant("K1"),h2,TVariant("K2"));
var_Items->set_Link(TVariant("L1"),Exg2anttlib_tlb::LinkPropertyEnum::exLinkText,TVariant("L1"));
long h3 = var_Items->AddItem(TVariant("Task 3"));
var_Items->AddBar(h3,TVariant("Task"),TVariant(TDateTime(2001,1,8).operator double()),TVariant(TDateTime(2001,1,10).operator double()),TVariant("K3"),TNoParam());
var_Items->AddLink(TVariant("L2"),h2,TVariant("K2"),h3,TVariant("K3"));
var_Items->set_Link(TVariant("L2"),Exg2anttlib_tlb::LinkPropertyEnum::exLinkText,TVariant("L2"));
G2antt1->EndUpdate();
|
|
1103
|
How can I get the bar from the point
// MouseMove event - Occurs when the user moves the mouse.
void __fastcall TForm1::G2antt1MouseMove(TObject *Sender,short Button,short Shift,int X,int Y)
{
OutputDebugString( PChar(G2antt1->Chart->get_BarFromPoint(-1,-1)) );
}
G2antt1->BeginUpdate();
G2antt1->Columns->Add(L"Task");
Exg2anttlib_tlb::IChartPtr var_Chart = G2antt1->Chart;
var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2000,12,29).operator double()));
var_Chart->set_PaneWidth(false,64);
var_Chart->LevelCount = 2;
Exg2anttlib_tlb::IItemsPtr var_Items = G2antt1->Items;
long h1 = var_Items->AddItem(TVariant("Task 1"));
var_Items->AddBar(h1,TVariant("Task"),TVariant(TDateTime(2001,1,2).operator double()),TVariant(TDateTime(2001,1,4).operator double()),TVariant("K1"),TNoParam());
long h2 = var_Items->AddItem(TVariant("Task 2"));
var_Items->AddBar(h2,TVariant("Task"),TVariant(TDateTime(2001,1,4).operator double()),TVariant(TDateTime(2001,1,6).operator double()),TVariant("K2"),TNoParam());
var_Items->AddLink(TVariant("L1"),h1,TVariant("K1"),h2,TVariant("K2"));
long h3 = var_Items->AddItem(TVariant("Task 3"));
var_Items->AddBar(h3,TVariant("Task"),TVariant(TDateTime(2001,1,8).operator double()),TVariant(TDateTime(2001,1,10).operator double()),TVariant("K3"),TNoParam());
var_Items->AddLink(TVariant("L2"),h2,TVariant("K2"),h3,TVariant("K3"));
G2antt1->EndUpdate();
|
|
1102
|
How can I get the level from the cursor
// MouseMove event - Occurs when the user moves the mouse.
void __fastcall TForm1::G2antt1MouseMove(TObject *Sender,short Button,short Shift,int X,int Y)
{
OutputDebugString( PChar(G2antt1->Chart->get_LevelFromPoint(-1,-1)) );
}
Exg2anttlib_tlb::IChartPtr var_Chart = G2antt1->Chart;
var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2010,6,25).operator double()));
var_Chart->set_PaneWidth(false,0);
var_Chart->LevelCount = 4;
|
|
1101
|
How can I get the date from the cursor
// MouseMove event - Occurs when the user moves the mouse.
void __fastcall TForm1::G2antt1MouseMove(TObject *Sender,short Button,short Shift,int X,int Y)
{
OutputDebugString( PChar(G2antt1->Chart->get_DateFromPoint(-1,-1)) );
}
Exg2anttlib_tlb::IChartPtr var_Chart = G2antt1->Chart;
var_Chart->set_PaneWidth(false,0);
var_Chart->LevelCount = 2;
|